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SE@ 0001 


10. 
ll. 


LOADING PROCEDURE 


wee ING PROCEDURE 
4.1 STARTING ADDRESSES 
4.2 poeneion 6 TION 


4.3 
° SWITCH SELECTION 
a ADDRESS SELECTION 
4.3.3 DRIVE AND PARAMETER SELECTION 


OPERATING PROCEDURE 
$.1 OPERATIONAL SWITCH SETTINGS 
S.2 CONTROL SWITCH SETTINGS 


6.2 RE 

RESTRICTIONS 

MISCELLANEOUS 

8.1 EXECUTION TIME 

8.2 ACK POINTER 

8.3 IMING TEST (TESTS 12 - 15) PRINTOUTS 
8.4 END OF TEST 


PROGRAM DESCRIPTION 
RH70/RMO3 DRIVER MODULE 
PROGRAM LISTING 


COl 


SEQ 0002 


. ARE WITHIN TOLERANCE, THAT 


DO1 


eocesnce SEQ 0003 


iHIS PROGRAM CONTAINS A SERIES OF TESTS THAT WILL VERIFY THAT 
OF ING SEEKS, THAT THE ACCESS TIMES 
Ot SIN TRACK AND SECTOR ADDRESSING 


CIRCUITRY OPERATES PhorERL, THAT THE DATA STORAGE AND 
ILITI FUNCTIONING. 


REQUIREMENTS 
EQUIPMENT 
PDP-11 PROCESSOR 
16K 
OADING DEVICE 
KW11-L OR KW11-P (THE KW11-P IS REQUIRED FOR THE TIMING TESTS) 
ITH 1 - 8 RMO3 DISK DRIVES 


RMOS DISKLESS CONTROLLER TEST OZRMJ-A 


RMO3 FUNCTIONAL TEST I DZRMJC-A 
RNS ENCTIONAL T II DZRMJD-A 

FUNCTIONAL III DZRMJE-A 
MEDIA 
BEATER ORES OT POE OE Ter ee Ee 
MODE, DEPE ING ON te ING REQU BERENS. Rote SHAT fue PROGRAM 
WILL NO A MI OF ORIVES WITH BOTH 16 AND 18 BIT MODE 


TF THE PROGRAR TS, BEING RUN ON & PROCESSOR MITH 16K. THE "S00P" 
Pati RS RCENE ne cee, eT Eocs 
WILL BE PRESERVED IN A isk SvStEN, HOWEVER. 





4.1 


4.2 


4.3 


EO] 


STARTING ADDRESSES 


oo Select Great 


514 COMBINATION OF 204 AND 210 


Probie [e TanTiaet 14 ILABLE WHEN THE 
0 PF THET ING ADDRESSES ARE 
OR 204 SO EPECTIVELY ON RESTARTS. 


OPERATOR ACTION 

3" ED PRE NTO DRIVEC VE(S) TO TED 

;: r iat OLIN OBIE. Sh A} 

5. Ens a SECTION S.) 

’. STA IVES ATTACHED TO 

eee Bb SuesySTER, no ih aaa NG eee Sic S" 

THE KEYBOARD TO RETURN THE PROGRAM 

PROGRAM ACTION 


IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 
PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING 
CONSTRUCTIONS HAVE BEEN ADOPTED. 


NOTE1: IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE 
NOT TYPED BY THE USER. 


NOTE2: THE CARRRIAGE RETURN TYPED BY THE USER IS_ INDICATED BY 
(CR> AND WILL BE ECHOED AS A ’CARRIAGE RETURN-LINE FEED’. 


«.><CR> PERIOD 


A STATEMENT TERMINATOR: WHEN TYPED 
END OF A LINE (LEGAL ON ALL LINES) 
THE NTERPRE ( 


«,.><CR> PERIOD PERIOD 
THE *PERIOD PERIOD’ TERMINATOR IS TYPED TO INDICATE 
THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL 
THE START OF TEST EXECUTION. 


«,><CR> COMMA 


THE COMMA IS USED AS A SEPARATOR BETWEEN DRIVE NUMBERS 


AND TEST NUMBERS. 
{/) SLASH 
A MODIFICATION INDICATOR: IF A SLASH FOLLOWS A TEST 


SEQ 0004 


4.3.1 


4.3.2 


NUMBER, THE PROGRAM WILL OPEN THAT TEST FOR PARAMETER 


MODIFICATION. 

«tU> CONTROL-U 
DELETE THE PRESENT INPUT STRING AND START A NEW 
LINE. THE “CONTROL KEY” 


NG 
(CTRL) AND THEN STRIKING THE “U”. 


peut ead The SFUBOUTY KEY. WIC MILL 


‘ ) FOLLOWED BY 


«\) 


CONTROL SWITCH SELECTION 


STARTING THE PROGRAM AT ANY OF THE agg STARTING ADDRESSES 
WITH SW<O7>=1 WILL RESULT IN TCH 


ENTERING THE “CONTROL 
Beet aNe” <0 “op UR ee in THE OPERATOR TO SPECIFY THE 
CONTROL SWITCH SELECTION EXAMPLES: 
EXAMPLE #1 


SET SW<07>=0 
C.SWR=000000 / 400.. 


EXAMPLE #2 

SET Pah ee 

€: ; 220... 
RH70 ADDRESS SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECT OF ADDRESS (RMCS1), 


T OF My Mg 
If THE DEFAULT VRULE OF THE BUS RODRESS NOT RESPOND 
ALTER’ Ne ERAOR IS ONE OF To COURSES OF ACTION 
WILL Be TAKEN: 
1. IF THERE. IS A MONITOR -- RETURN TO THE MONITOR 
2. IF THERE ISN’T A MONITOR -- ASK FOR NEW ADDRESSES 
erento THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 

CHANGE tigre THE RH70 AND THE TOR 

.__ STARTING SSES 210(8) AND 214(8) 

ARE TREATED AS ADDRESSES 200(8) OR 204(8) RESPECTIVELY. 
ADDRESS SELECTION EXAMPLES 


EXAMPLE #1 


& 
F 
g 


SE@ 9005 


GO1 


RMCS1=176700 / 177200. 


EXAMPLE #2 


[=176700 / 176300<CR> 
mara 


RMCS1=176700<CR> 
RHVEC=254 / 260. 
EXAMPLE #4 


IPQ RAO? ERTLED TO RESPOND TO ADDRESSING 


1 XXXXXX 
RMCS1=176300 / 176700. 


EXAMPLE #5 


RMCS1=176700 / 1776\67\6300<CR> 
RHVEC=2S4<CR> 


RHPRIO=5<CR> 
RMCS1=176300. 


4.3.3 DRIVE AND PARAMETER SELECTION 


START pron BT OR Pie. WILL RESULT_IN AUTOMATIC 
SECTION OF DRIVES TO TEST AND THE TESTS TO RUN. 


STARTING THE 


204 OR 214 ALLOWS THE OPERATOR 


PROGRAM AT 
TO SELECT THE DRIVE(S) TO BE TESTED, THE TESTS TO BE EXECUTED, 
AND THE PARAMETERS TO USE. 


4.3.3.1 DRIVE AND PARAMETER SELECTION DESCRIPTION 
THE FOLLOWING IS A TABLE OF TERMS USED BY THE PSI. 


“R” 


CYL SS 


ie i 
LAST TRACK ADDRESS 
INCREMENT TRACK 
FIRST SECTOR ADDRESS 
LAST vr OR ADDRESS 


PA FOR DATA Tes? 
WORD OF PA O WHERE X IS 1 TO 16 


ALL SEEK TESTS (TESTS 0 - 10) 
ALL TIMING TESTS (TESTS 12 - 15) 
ALL ADDRESS veel wey S 16 - 17) 
THE DATA y teat sg 

THE EXERCI (TEST 51) 


SEQ 0006 


*% USED BY THE OPERATOR TO SELECT TEST GROUPS 
NOTE: ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN 
(PAT) AND WORDS (WOX) SELECTION. “PAT” WILL BE SELECTED 
BY A BIT (I.E. 001000(8)=PATTERN 9) AND “WOX” WILL BE IN OCTAL. 
SPECIAL CASES OF CONTROL CHARACTERS 
IF <..> IS TYPED WHILE A TEST IS OPEN FOR MODIFICATION 


(</>) “AND OTHER TESTS IN THE “TEST 
ARE TO BE MODIFIED, THE REMAINING TESTS WILL BE UNCHANGED. 


LOCATION 204 OR 214. 


THE PROGRAM WILL THEN RESPOND WITH: 
DRIVE(S)= 


ORIVE a3 USING YesTs 2 THRU? AO TEST {1 AAD DOES NOT BESIRE TO cHANGE 


PARAMETERS fa CYLINDER. ADDRE FINAL CYLINDER ADDRESS, ETC 


THE USER USER WOULD TYPE ’3<CR>’ WHICH SAYS Fturg IS THE END OF DRIVE ENTRY”. 
TEST NUMBERS. 


THE PROGRAM WILL THEN’ REQUEST 
THE TRANSACTION APPEARS AS FOLLONS: 
DRIVE(S)=3<CR> 
TEST T= 
ENTER DESIRED TEST NUMBERS. 
HE NE Won a Teere's STS AND TEST 11 SO HE TYPES 2- 
SEPARATES ENTRI s)y He »<CR> (? , 
END OF CHANGES, START TEST EXECUTION 
IT NOW LOOKS LIKE THIS 


DRIVE (S)=3<CR> 
TEST=2-7, 11.<CR> 


IN THE NEXT EXAMPLE, IT IS ASSUMED THAT THE OPERATOR WISHES TO TEST 
DRIVE 4 ae TO in TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS 
THE TRANSACTION WOULD BE AS FOLLOWS: 

DRIVE(S) ac CR> 

TEST= 
THE OPERATOR NOW ENTERS THE TEST NUMBERS. THE TRANSACTION IS 
GIVEN BELOW: pet ves a 


DRIVE (S)=4<CR> 
TEST=1, 3/4-7, 10711<CR> 


SE@ 0007 


I01 


NOTICE THIS SAYS SELECT TEST 1, CONTINUE(,>; SELECT TEST 3, QPEN</>; 
Th tue’ « CONTINUE, > "SELECT TEST 10, OPEN«/>; SELECT TE SE@ 0008 


SCANS THE TEST NUMBER INPUT AND DETERMINES THAT THE 
PARAMETERS FOR TEST 3 AND TEST 10 ARE TO BE CHANGED. THE OTHER 
TESTS WILL NOT BE ALTERED. 


(THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY) 


PMs 


;WHERE X IS ITERATION 


SR ee ae ie 


pa, Baa Zadbag WITH A <CR> WILL CAUSE 


DRIVE(S)=4<CR> t 
TE Tope" ber hicem 

=1 / <CR> ;00 NOT ALTER-BUT CONTINUE 

FC=N / ;WHERE ’N’ IS FIRST CYLINDER ADDRESS 


IF THE OPERATOR DOES NOT WISH TO CHANGE ’FC’, THE FOLLOWING OCCURS: 
OR VE(S)=4<CR> 


S1=1,3/4-7, 10/11. <CR> 
R=l_/ <CR> ;00 NOT ALTER THIS LINE BUT CONTINUE 
FC=0_¢ <CR> :D0 NOT ALTER THIS LINE BUT CONTINUE 


I en AEROS HE" TE COTW SHIPS REC. 


OPENED 70° CHANGE TNE VAL VALUE Bn’ THE NEW VALUE I WYBED 
FOLLOWED BY A ’PERIOD’ TERMINATOR’ ¢ cc 2><CR>). 
THE TOTAL TRANSACTION AND RESPONSE: 


DRIVE (S)=4<CR> 
TEST=1,3/4-7, 10/11<CR> 
TEST 


R=1 / 


THE PROGRAM HAS LOADED TEST 3 WITH_ITS NEW PARAMETERS AND THE 
PROGRAM IS WAITING FOR CHANGES TO TEST 10’S PARAMETERS. 


DRIVE(S)=4<CR> 
TEST=1,3/4-7, 10/11<CR> 
TEST 3 


R=1 7 <CR> 





JOl 


(ge Manco 
= / ° 

1 

Test / 10.<CR> 

THE OPERRTOR TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY 
WITH A ’PERIOD’ ’CARRIAGE RETURN’. 


PROGRAM NOW LOADS TEST 10 WITH THE NEW ea (TEST 11 RETAINS 
PREVIOUSLY IGNED PARAMETERS) AND RESPONDS WITH 


DRIVE(S)= 
SINCE THE USER DID er Ee. WITH A ’PERIOD PERIOD’, 


ata be nie 


TTOMEVER POINT IN ORDER TO EXECUTE 
Sg a: "PERIOD BERTOO’ MUST MUST BE TYPED. 


ENTERED, The prow Usut Stent EXECUTION TmeDLATELY. ® PPERIOO 
ee "MUST_BE EXIT TEST PARAMETER 
CHANGE MODE 10 oo TO "TO EXECUTI Ton 


4.3.3.2 DRIVE AND PARAMETER SELECTION EXAMPLES 


EXAMPLE #1 
DRIVE=4. <CR> ;SELECT DRIVE #4, TERMINATE AND 
*BEGIN EXECUTION USING PREVIOUSLY ASSIGNED 
: PARAMETERS 
EXAMPLE #2 
DRIVE=0<CR> ; SELECT DRIVE #0 AND MAKE CHANGES ”,” 
TEST=1-5. <CR> RUN TEST 1 THRU S ONLY, USE 
‘PARAMETERS AND TERMINATE AND EXECUTE.” 
EXAMPLE #3 
DRIVE=2<CR> ; SELECT DRIVE #2 AND MAKE CHANGES “,” 
TEST=1-5,6/7/10/<CR) * RUN TES 1-5 WITH DEFAULT PARAMETERS, OPEN 
TEST 6 ;TEST 6,7 AND 10 FOR CHANGES 
R=1 / <CR> "LEAVE 'R’ AS IS AND MOVE TO NEXT PARAMETER 
FC=0 / 10.<CR> *SET 'FC’ CYLINDER ADDRESS TO 10, END CHANGES 
; TO TEST 6. 
in / S0<CR> ;50 ITERATIONS, MOVE TO NEXT PARAMETER 
FC’ C ADDRESS BUT CONTINUE 


Res SB. com HELP pee 
LC=822 / 8. . «CR? ST 10 IS STILL PENDING WILL BE 
RETAIN ITS PRESENT PARAMETERS. 


EXAMPLE #4 





SEQ 0009 


FC=0 / 10..<CR> 


DRIVE=1<CR> 
TEST=S/<CR> 


reat S / 100.<CR> 
TEST 1 ; 
R=100 7 1000.<CR> 


ST=D/<CR> 
TEST 20 


DRIVE=1<CR> 
TEST=D/<CR> 
TEST 20 
R=1000 / <CR> 
FC=I0 + / <CR> 


KOl 
ROR AL BEER FES PANG THe EXERCISER 


TERATIONS 
AO ADDRESS 
CUT 


af ad 0 WiLL RETAIN THEIR PREVIOUSLY 


;OPEN THE SEEK TESTS (TESTS 0-10) 

;CHANGE TO 100 ITERATIONS, TO TO THE NEXT TEST 
;CHANGE ’R’ TO 1000 ITERATIONS, MOVE TO NEXT TEST 
SE (Fy CTEM TRON PETE 
;CHANGE *LC’ TO 51; GO TO THE NEXT TEST 

;MOVE TO NEXT TEST 


;USE TEST 4’°S PARAMETERS AND START PROGRAM EXECUTION 


;SELECT AND OPEN THE DATA TEST 


;00 1000 ITERATION OF TEST PATTERN 
;#8 ON CYLINDER 10, TRACK 2, SECTOR 4 


.-<CR> ;RUN WITH PATTERN #8 


AMETERS AS I 





SEQ 0010 


5.1 


LOl 


160. 7 <CR> 


coat 

a | 

Bes 
sANNN 


T=] 
is 7 «CRD 

T=000400 Z 401 <CR» jRUN MITH PATTERNS #9 8 #0 (QEOPERATOR INPUT) 
=] 7 SE508. CCR); SECOND BORD OF PAP TERN 0 


3<..)> START EXECUTI 
EXAMPLE #9 
DRIVE=0,1,4<CR> ;TEST DRIVES 0,1, AND 4 IN SEQUENCE 
i a CHANGE TEST gs : 
210 7 <CR> 
FC=0 / <CR> 


LC=822 / 1..<CR> ; CHANGE LAST CYLINDER — 822 TO 1 
START PROGRAM EXECUTION 


SWITCH SETTINGS 


OPERATIONAL SWITCH SETTINGS 
WITH eels 00 THE PROGRAM WILL PRINT OUT ON 
CONTINUE IN TEST. 
SWITCH SETTINGS ARE: 


(15>21...HALT 






<19>=1...LOOP 
tT Ho . INH 
l2>=l... HABER Por EACH TEST 
<0) =h i B 
<10)s1]... 
SW<09>=1.. 
(08>=1.. INE PRINTER 
« . i" INGS FROM TTY 
TESTS 


« 
et 
Ae 
aay AND COMPARES (TEST 20) 
Bb TE A cle crest 2 


TLL Deven ON _A_SWITCHLESS SSOR (I.E. ech 
Sera esas Fede Rg og 


SAaaa 





THROUGH A KEYBOARD 
ING G’. THe PROG PROGRAM WILL 

G’ AT ANY TIME EXCEPT WHEN THE PROGRAM 

IS AT A HIGHER PRIORITY PROCESSING AN RMO3 INTERRUPT. THE 


SEQ 0011 


MO1 
"SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SHR = NNNNNN = NEW =’ 
EACH Tite | SWITCH SETTING ARE ENTERED, THE ENTIRE SHITCH REGISTER 
BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ’RUBOUT’ 
sa = t= BS SS NG ERRORS 
TH HAROWORE SMITCH REGISTERS, T 


Pate emt ca a all 


CONTROL SWITCH SETTINGS 
THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD. 
> 
SEINE 
SWITCH i 


nitgtea 
APE BPS TIA lbs, Me vololh 


THE C.SWR SETTINGS ARE: 
C.SWR<15>=0...WRI 
= 







INH ine NG (TEST16) 

C.SWR<14> “NO FUNC JONS 

vo eee - FUNC 
C.SWR<(13>=0... 

= e 
C. SWR« 12> IN TESTY 

= N TESTY 
C. SWR< 08> 
c SHR«O7>= DATA COURANDS IN TESTS 0-6 

; T 

C. SUR 06) : m S's 76 
C. SHR«DS> = i RET REOUTS(E ENABLE WATCHDOG TIMER) 


OQUTS(D tobe WATCHDOG TIMER) 
ssn: Aa : ah , Tom iB BIT) NODE 


THE DEFAULT CONDITION OF C.SWR<1S:00>=0. 
REFER TO 4.3.1 FOR C.SWR SELECTION 
ERRORS 
R_OF THAT CAN OCCUR_IN THIS PROGRAM. 
WHEN AN ERROR TS ENCOUNTERED, THE CALL TO THE ERROR ROUTINE 


SEQ 0012 


6.1 


6.1.1 


6.1.2 


6.1.3 


6.2.3 


IS MADE AND IF SW<13> IS NOT SET, AN ERROR MESSAGE PERTAINING 
ete rk ILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 


i naar 


REFER TO THE FOLLOWING ‘SECTION FOR THE DIFFERENT ERRORS 
THAT CAN OCCUR. ° 


ERROR TYPES \ 


THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


DRIVER ERROR ; 
DRIVER 


tg St eel ra at I e 
oy aed pore" 


NON-FATAL ERRORS , 


THESE WILL TO “DISK” OR “DATA” FAILURES 
WHICH MiLt Be FEPORTED They Ocouk, AFTER REPORTING 


FATAL ERRORS 


THI OF ERROR WILL BE THE RESULT OF ANY KIND 
OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 


THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


ERROR RECOVERY 
PRETEST ERROR 





On H hori dee WILL BSx'FOR THE’ DRIVES AND 


SSES FOR TESTING OR TO MONITOR. 


NON-FATAL ERROR 


FEN a if, chron asrare IT WILL BE REPORTED AND 


FATAL ERROR ' 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THE 
PROGRAM WILL LL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


SEQ 0013 


SE@ 0014 


RESTRICTIONS 


7. 


ses sof E 

a : =e mi “a : 

7 ee 

1. ie = 

ee 4 . faye 

i ee tg = 8 09 2 

=opeoe + MY Pw E Suv 

x > } > r ~ & beta We i" 

cea fe a 

ahs et sed Fosse 
nn a 

gist ga Bug a f oe we , = 288 sug 
pen, oe bel FE Banee FS ge aes 
Bente oe at & Fi Be f ert | S35 fae 
SP ee 
ce Ef beth Uy Site EF HP = 


COe 


: - TIMES 
2. TEST 13 -- ONE CYLINDER SEEK Seo 0015 


MAXIMUM=8000 US 
NOMINAL=6000 US 
3. TEST 14 -- ACCESS TIME MEASUREMENT 


MAXIMUM=32000 US 
NOMINAL=30000 US 


4. TEST 1S -- MAXIMUM SEEK TIMES 


MAXIMUM=S7000 US 
NOMINAL=SS000 US 


8.3.2. TIMING TESTS PRINTOUT EXAMPLES 
EXAMPLE #1 


ROTATIONAL SPEED TIMNcS 
MIN=16670 US 
MAX=166390 US 
AVG=16680 US 10 SEEKS TIMED 


ONE CYLINDER SEEK TIMES 
# FORWARD 


MIN=S3S0 US 

MAX=6920 US 

, SEEKS TIMED 
MIN=5140 US 

MAX= 


US 
AVG=S430 US SEEKS TIMED 
EE Le MERUREENTS 
M US 

US 

US 128 SEEKS TIMED 


# 
eee 
Ue 28 SEEKS TIMED 


1 
arg TIMES 


MIN=S6990 3 
10 US 128 SEEKS TIMED 

MI US 

US 


AVG=SE340 US 128 SEEKS TIMED 


8.4 


DO0e 


ROTATIONAL SPEED TIMES 


pie Pex 1seaD ig 
10 SEEKS TIMED 


ae ¢ SEEK TIMES 
MI US 
Se Poet 
7 822 SEEKS TIMED 
M 


US 822 SEEKS TIMED 
ee 
US 
a 73 ABOVE THE MAXIMUM OF 32000 US 
128 SEEKS TIMED 
HT 
US 128 ABOVE THE MAXIMUM OF 32000 US 
US 128 SEEKS TIMED 
OTTER SEEK TIMES 


MIN=57510 US 
US 128 ABOVE THE MAXIMUM OF S7000 US 
US 128 SEEKS TIMED 


# 
MI US 

US 128 ABOVE THE MAXIMUM OF 57000 US 
AVG=S7e10 US 128 SEEKS TIMED 


END OF TEST 
Treo RY fie CORPLETION OF Testing & DRIVE AND THE “END OF TEST 
TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TE 


PROGRAM DESCRIPTION 


THIS PROGRAM CONTAINS NINTEEN TESTS NUMBERED 0-22 IN OCTAL. 
TESTS 0-7 & 11 WILL READ THE CYLINDER, TRACK, AND SECTOR INFORMATION 
8 ° RAND Date , AND 
TION FUReT ONS ¥. TEST 1-1 Stee MEASURE 


SEQ 0016 


9.1 


3.2 


3.3 


E02 


Seep e ae Ee a Hae DU Gen 


ALL OF THE DRIVES W 


rovers) Se aes 
fro af ENO OF TEST” " WILL BE TYPED fEsFine A 


REFER TO THE FOLLOWING SECTIONS FOR DETAILED DESCRIPTIONS 
OF EACH TEST. 


TEST O - RECAL/SEEK TEST 
THIS TEST WI IVE TO eure A A le 
ea Ph ke gs ROG 
es INDICATIONS. are 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 
i 
FT 
FS 
TEST 1 - SEEK/SEEK TEST 

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 
CYCLE TO “LC™, “LT”, “LS” FOLLOWED BY A REVERSE SEEK CYCLE TO 


ts". AT COMPLETION OF EACH THE PROPER 
INDICATORS’ ARE EXAMINED 0 PRCURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R - 100 
FC - 0 
LC - 2S6 
IC - 0 
FT - 0 
LT ad 0 
FS - 0 
LS ad 0 


TEST 2 - INCREMENTAL SEEK TEST 

DS cE Ale SOROS OES eE DE 
Sue WUT eh ten tceec" cL 

av near ek Ss ache: See 


UNTIL “NC* IS THAN “FC". AT THE COMPLETION OF EACH 
SEEK INDICATORS ARE EXAMINED TO 
ENSURE TION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


SEQ 0017 


3.4 


9.5 


9.6 


FOe 


R 
FC 


i 
FS 

TEST 3 - STEPPING SEEK TEST 
THIS TEST WILL COMMAND SEEK CYCLES TO CYLINOER 0,1,2,4 
EACH SEE 


Cle fre PROPER TAGICATORS ARE. ENA HINED TO VERIFY PROPER 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


am Me: 


R - 8 

FC - 0 

LC - 256 

IC - 1 

FT - 0 

FS - 0 
TEST 4 - OSCILLATING SEEK TEST 
TOTFCES “HEE STONE AT EFC GRD INCREMENTS BY "Te" UP TO CYLINDER 
"LC". THEN a CREPENTED BY BY “IC” toa TO CYLINDER “FC”. AT THE 
COMPLETION OF SEEK COMMAND THE PROPER INDICATORS ARE 


EXAMINED TO ENSURE PROPER OPERATION 
THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


eee) 
FC - 

LC - 822 
IC - 1 
FT - 0 
FS - 0 


TEST S - CONVERGING/DIVERGING SEEK TEST 
THIS TEST WILL CAUSE THE DRIVE TO EXECUTE F 


. oh Be (A ea 


NIKE ONITL “NC1". AT THE COMPLET 
EACH SEEK COMMAND THE eet Rad ARE EXAMINED TO 
eure F oat En, w “NC1” AND “NCe” DEFAULT TO 
FOLLOWING ey USED BY THE TEST: 
R ° 1 
FC - 0 
LC - B22 
IC = 1 
FT - 0 
- 0 


SE@ 0018 


3.7 


9.8 


3.9 


GOe 


TEST 6 - SERVO ADDRESSING LOGIC NOISE GENERATOR TEST 


MTS TEST 8 Fe Te OO TOS TEN Were.” SEEK T' 
ide ‘poe THEN NC+e THEN ROW “NC*_IS UPDATED 


he arene are aa VALUE OF “NC” 
page at n SEex RHO, THe OPERATION. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R ad 1 
F » 0 
L - 82e 
IC - 1 
FT ° 0 
FS - 0 


TEST 7 - RAND. SEEK TEST 
Hs TEST oes a RANDOM OPERATIONS BETWEEN CYLINDERS ’FC’ 
AFTER EACH meg oF is 


DRIVE IS VERIFIED BY 
ais A SECTOR Y_ ADDRESSED CYLINOER AND TRACK. | 
oF “POSIT TONING READ. TRACK SSES ARE INCREMENTED 

°FT’ rs , LT’. 
THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
R - 5000 
FC - 0 
LC - B22 
FT - 0 
LT - 18 


TEST 10 - SERVO SETTLE DOWN TEST 


THIS TEST VERIFIES THAT THE HAS SETTLED DOWN AND THAT 
The OnTVe. 8 OW CYL Noe INOER MER THe DRIVE | S SEEK COMPLETE. 

ISSUED. BETHEEN CYLINOERS. "NCI 
(NCL’ STARTS AT VALLE FE): At, Ti OMPLETI 
THE TEST 15 COMPLETED WHEN RCI” HAS BEEN 


SE@ 0019 


HO2 
ea  etehaE THE PROGRAM READS THE DRI SEQ 0020 


Rah ne erat Sra eds AE 
ee aes A tie ls 


THIS sa IS VALID OMLY IF THE OPERATION IS iin” a sll A FEW 
TO 


"Sena TS OCA uti he ReauiReo Ti Time RANGE FREQUENTLY 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R - 1 
FC - 0 
See 
fines 


TEST 11 - ALL SEEKS TEST 


THIS TEST raat IVE CAN SEEK FROM EACH CYLINDER 
WRT RAORST ME Oe 


BEGINNING WITH CYLINDER 'FC’, THE TEST SEEKS TO EACH CYLINDER 
BE TWEEN er enENTED ‘LC’ FROM CYINDER ‘FC’. THE a a 


NCREMENTED AND THE TEST SEEKS a ge THE INDER 
epberss ib AAT CYLIGERe BETGEEN FC) Ai) 'LC> THE, SEQUENCE 


THE FOLLOWING PARAMETERS ARE USED BY THIS TEST: 


R » 1 
FC - 0 
LC - 822 
IC - 1 
FT = 0 
FS - 0 


TEST 12 - ROTATIONAL SPEED TIMING TEST 
o TEST WILL START A SEARCH TO CYLINDER O, 


ba Soetiing Simahs diese 


TIMES IS CALCULATED AND CHECKED 70° 
ENSURE IT IS WITHIN TOLERANCE: 


16:67 RE-REV + 8% OR - 3.8% IF SOE, 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


“7 
oO 
tree 
oo0or- 


3.12 


9.13 


9.14 


9.15 


TEST 13 - ONE CYLINDER SEEK TIMING TEST 
THIS WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 


BY ONE UNTIL THE Naeem is See eee ene ie 
NOER THEN REVERSE SEEK THE 


CYLI 
CYLINDER 7LC" 
Sree aura 
THE TEST USES THE FOLLOWING PARAMETERS: 
Fc . t 
ig g22 
TEST 14 = ACCESS TIME MEASUREMENT 
QI cee eB GRP EOP RO Ob YLINDER 0 10 


ad THEN A sme TIRED. INDER *LC’ TO 
aoe ge ALLOMED FOR THE ACCESS TIME. MEAGURPENT. 


cron TOTAL 
aS ie i T BE LESS THAN 3e MS. 
DEFAULTS TO (10) 


THE TEST USES THE FOLLOWING PARAMETERS: 


x ~ 1 
FC - 0 
LC - 255 
TEST 15 - MAXIMUM SEEK TIMING TEST 
THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER 0 TO 
CYLINDER ’LC’ 8 REVERSE S:EK FROM CYLINDER °LC’_ 10 
CYLINDER 0. BOTH ARE TIMED AND CHECKED TO ENSURE 
WITHIN "iS rereh Pht Oo FOR THE MAXIMUM SEEK 
TIRE Tar 128 TIMES (FOR 
A TOTAL THE MAXIMUM SEEK TIME MUST BE LESS THAN 


By HS. LC’ DEFAULTS 10 B22 (10). 
THE TEST USES THE FOLLOWING PARAMETERS: 
Fc ° s 
LC . B22 
TEST 16 - SECTOR ADDRESSING TEST 
S TEST WRITES DATA Oe RS | 


THE 
TA Wd ve E56 te ore Ie 
yes iyo) 8 Sill Peto EEE he SECTOR 0 
As “iH ro Me 


ca tet ani ae 


THE TEST USES THE FOLLOWING PARAMETERS: 


SEQ 0021 


JOe2 
fe < Q SEQ 0022 
9.16 TEST 17 - TRACK ADDRESSING TEST 


THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 
IN CYLINDER “FC” SECTOR “FS” OF EVERY TRACK WITH EACH TRACK 


THe ais vaio, Ma O IS REWRITTEN AND TRACK 1 
REIYP TGS tlic Sts ic ts 


Bis Pope eine, t8 Conte UP 7 REWRITING TRACK 3 


THE TEST USES THE FOLLOWING PARAMETERS: 
R - 1 
FC - 0 
FS - 0 
9.17 TEST 20 - DATA TEST 
THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYL 
"FC" “LC” BY T 


NCREMEN 
SPECIFIED. FOLLOW QUENCE FOR EACH CYLINDER: 
Ser sate 1 “eT RY 24 


READ THEN SOFTWARE COMPARE 
ent “NT” BY one 
T 1-4 FOR EACH DATA PATTERN 

REPEAT 1-5 FOR “FC” THROUGH “LC” ADVANCING BY “IC™ 
F A lars THE ERROR IS REPORTED AND 
THE TRACK IN REWR AND CHECKED. THIS CHECK IS 
ACCOMPL I NG TWO(2) SUCCESSIVE ERROR FREE 
WR ; : CK 
F 
F AULT 
PA 
THE 


ait F 
ee T DEFAULTS TO 0 


Ba Nene’ 


= 
a 
5 
m 
6 


OF TRACK “NT” 
“LS” OF TRACK “NT” 


ia 


-— " 
see @ @ 


(ALL POSSIBLE PATTERNS) 


3B 
= 
Tw 
3B 
4 
Ww) 
iD 
i- 
1 
3 
4 


ESE EEE 


aa 
oe 


i 
RK 


bee 
NN 
aaa 
4 
e 





> Boo bes Beet bet Gee Fone Pe ban fs Gam Pew at fo he 


Beaseesamass ss 


14 1 
56735 1 151322 
67356 007417 Oe64SS 





KOe 


70360 151322 
PAT 15 


: 
— 
— 


SE@ 0023 


2 
— 
~ 
3 
pe 
WwW 
3 
~ 
ae 
= 





: 





fas bee dt be fee fee Pe hee be pe has fae 


WIS 


T : I 
Ree Peat Pat fas Ga ee Fem ae Gon Ge fae fee 


BRS RESSER ARSE 


R - 1 
FC - 0 
LC - 821 
IC ° 64 
FT . 0 
LT - 4 
IT - 1 
FS - 1 
LS - 0 
PAT - 177777 


TEST 21 - RANDOM ADDRESS AND RANDOM PATTERN TEST 
ARTING AT “F SK PACK 
aA eee 
For Tat A WILL BE THE BASE” OF THE” RANDOM GENERATOR 
THe Test The ees FOLLOWING SEQUENCE “R” TIMES *; 
“R” 10°20 20, 
TE A RANDOM ADDRESS 
WRI premon PATTERN AT THE ADDRESS 


a Fe DATA URITTEN IN 2° 
Lies ADDRESS 


, RR RASS eM RURLTER HE 


TEST USES THE FOLLOWING PARAMETERS: 
R - 20000 


—o ono u £W rr 
ow~ ee ed 
D 
eu 
— 
D 
a 


a 


LOe 


FC - 0 
LC 821 


TEST 22 - RMO3 ACCESS TIME TEST 


THIS TEST PERF Tie actess Tt Be eon GML pers 08 oe .'9 ALLOW THE 
OPERATOR TO POLST THE 


THe Pe S RPPROXINA 5 
THAT RECESS” ti SRDICATORS ON THE DOU MAY BE OBSERVED. 
THE TEST USES THE FOLLOWING PARAMETERS: 

R - 5000 

FC - 0 

LC - ess 








SEQ 0024 


MOe 


IDENTIFICATION 


PRODUCT NAME: RMO3 SOFTWARE DRIVER MODULE 
DATE CREATED: AUGUST 1977 
MAINTAINER: DIAGNOSTIC ENGINEERING 


AUTHOR : J. LACEY/C. HESS/C. CHEN 


COPYRIGHT (C) 1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 
Ms elt IN THIS paren IS eae CHANGE 
COMMITTMENT BY DIGITAL. EQUIPMENT CORPORATION. 

ACTUAL DISTRIBUTION OF THE SOFTWARE DESCRIBED IN THIS 


CT CONDITIONS TO 
Be ATSGUNGED ON SORE FUTURE DATE BY DIGITAL EQUTPHENT 
BILITY FOR THE OR 
ty TY ON EQUI WHICH IS 
ina ie 


TO USE ON A SINGLE COMPUTER SYSTEM AND CAN BE Be COPIED GHETH 


INCLUSION OF DEC’S COPYRIGHT NOTICE) ONLY YOR USE 
zyorEn. EXCEPT AS MAY OTHERWISE BE PROVIDED IN UPRITING~ 


NOe2 


10.1 §RH70/RMO3 DRIVER MODULE SEQ 0026 


THIS DOCUMENT IS THE USER’S GUIDE FOR THE RH70/RMO3 DRIVER. 
10.2 TO INITIALIZE THE ORIVER: 
JSR PC, RMINIT 


rai a MUST EXAMINE THE “DRVSTA” TABLE TO DETERMINE \ 
\, 4 Toit eries; are "avis Per DRIVE. THe STATE OF PORIVE BILE 
DRVSTA DRIVE STATE 
8 pts 
af HE Leis Hitctieseaceeaame © ue ERE 
DRVTYP CONDITION 
ae 


THE ’RMINIT’ ROUTINE WILL DO A READIN PRESET AND WILL SET FMT2e. 
10.3. AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE 


FOLLOWING SEQUENCE. e 
ALL JsR RO,RNOS THE 
PNTDPB ; SS oF Den 
RETURNI ; QUEUE IS FULL 
RETURN2 RETURN IF REQUEST IS IN 
‘Bath dition 
; CONDITION 
#DPB (DATA PARAMETER BLOCK) 
PNTDPB: . 0 ;(0) DRIVE NUMBER 
‘BIE 0 » POD BESET VALLE. OR FMT22, ECT, AND HCI | ‘ 
-BYTE 0 (2) COMMAND | 
-BYTE 0 « 303) AND A17 AND ALG 
: 0 3(4) (MUST BE NEG.) 
, 0 5 £6) OR 
;REGISTER T INTER , 
-BYTE 0 ;(10) SECTOR ADDRESS OR 
;FIRST REG. INDEX 


10.4 


10.4.1 


.BYTE 0 (11) TRACK OR 
WORD O ; 
“WORD O ; 
; 
; 
; 
; 
.WORD 0 ; 
$ 
4 





PROVIDES A gee IMEOUT ILITY. 
THIS CAPABILITY YOU MUST SURLY “RM TIMER” ROUTINE 
THE ELAPSED TIME IN THE FOLLOWING MANNER: 


MOV #16. ,-(SP) ceo TICK CONDS BETWEEN 
JSR PC, RMTMR TIMER ROUTINE 


Br ee he beeen Te GT ee we we 
TIME MUST BE IN M 


BS RN ule SEAS ERATIONS 0 HILL Pa PE gon 


SECONDS FOR ERROR RE 


i 
2 
Ra 


ISR ;CALL THE DRIVER 
WRTDPB :DPB_ ADDRESS 
BR 1S “WAIT FOR QUEUE IF 
25 TST WRTDPB+16 WAIT FOR COMMAND TO COMPLETE 
BNI ERROR ;ERROR OCCURRED 
WRIDPB: .BYTE 5S sDRIVE #5 
-BYTE QO : 
-BYTE 161 *WRITE COMMAND 
-BYTE O : 
-WORD  -1000 *WORD COUNT 
“WORD  WRTBUF *BUFFER ADDRESS 
.BYTE 3 : SECTOR 
“BYTE & s TRACK 
prs ERRTBS t ERROR TABLE 
“ 0 *STATUS/ERROR INDICATOR 


ALTERNATE DPB SETUP 


WRTDPB: .WORD 5S ;THIS SETUP ACHIEVED 
“WORD ti OVE HABCE BID BUT 
“WORD  WRTBUF IN A CLEANER FORMA 


SE@ 0027 





10.5 


10.6 


-BYTE 


3,5 
-WORD 400, ERRTBS,O 
RH70/RMO3 REGISTERS 


MNEMONIC 


eer ELD EE Cae bene dy 


COMMANDS PERFORMED BY THE DRIVER 


SEARCH 
GET REGISTER(S) 
SET FORMAT 


FEVOFLRORK ERIS com cwo 


g 


101 
103 
105 
107 
111 
113 
115 
117 
lel 
123 
131 
141 
143 


ee ae a ae oe a a oe oe a 


CO3 


wee ee He eee 


SEQ 0028 


DO3 


SELECT DRIVE 145 S 
WRITE CHECK DATA 151 D 
WRITE CHECK HEADER 153 0 
AND DATA 

WRITE DATA 161 D 
WRITE HEADER & DATA 163 0 
READ DATA 171 D 
READ HEADER & DATA 173 D 


BIT NO. 


1S 


14(1) 


13(1) 


12(2) 
11(2) 
10(2)(4) 


9(3)(4) 
8(4) 

7 

6(2) 
5(2) 


SPECIAL PROVIDED BY THE DRIVER 
DPB STATUS/ERROR INDICATOR WORD 

THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 
THIS IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 


MEANING IF ON A “1” 


USER MADE A REQUEST FOR A FUNCTION 
TO BE PERE ON A DRIVE THAT HAS AN 
UNLOAD REQUEST IN QUEUE. 

PERSISTENT UNSAFE CONDITION EXIST. 
UNCORRECTABLE PARITY ERROR OCCURRED 

FATAL PARITY ERROR. A WAS 
PERPDRAER. ALE OCEUES WERE EMPTIED AND 
ALL ORVACT’S SET TO THE IDLE STATE 
SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
DONE 

ERROR OCCURRED DURING AN 1/0 OPERATION 


ERROR OCCURRED DURING AN OPERATION 
OTHER THAN 1/0. 


SEQ 0029 


03 


4(2) CORRECTABLE UNSAFE CONDITION OCCURRED 


3(2) DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC “RECALIBRATE™ SEQUENCE 


2 PORT REQUEST T HE OPPOSITE PORT D a, le 
I DID NO 
Tre ORI BUT Tre onfosiTE Pox OID 
1 NON-EXISTENT DRIVE REQUESTED. USER MADE 
A REQUEST FOR A NON-EXISTENT DRIVE. 


(1) = fee wee ar in GEE. (rh70/RMO3 


(2) = aad ay THE DRIVER 
Be HPA He Buc 
AS PER DPB+14 BEFORE THE “DRIVE 
(3) = RE HAS EMPTIED. THE 
ORIVER TSSUED A Pease Te bRIVE MERE 
Ca Re erecta BEEORE THe INIT. 
(4) => A “RECALIBRATE™ SHOULD BE ISSUED 
BEFORE ANY OTHER COMMAND. 
10.8 ERROR CALLS MADE BY THE DRIVER. 
THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 
WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER IT WILL MAKE 
AN OF THE FORM “ERROR N°, WHERE “N" IS THE ERROR 


ERROR CALL N", 
AND THE ERROR WILL BE AN EMT’ INSTRUCTION. 


SEQ 0030 


N TYPE DATA AVAILABLE 
1 RH70_ INTERRUPT #R4= RMCS1’S ADDRESS 
OCCURRED (RHAS=0) 
4 UNEXPECTED ATTENTION Rl= DRIVE NUMBER 
OCCURRED R3= ATA BIT 
#R4= RMCS1’S ADDRESS 
RS= _ (RMAS) 
RRERRS+2=fPER 
RMERRS 
RMERRS 
3 MASSBUS PARITY RD.ADR= ADDRESS OF REG. READ 
ERROR (MCPE=1) RO.WRD= WORD READ 
4 MASSBUS PARITY WRT.AD= ADDRESS OF REG. WRITTEN 
ERROR (PAR=1) aT es wee WRITTEN 
RO. READ BACK 


5 ADDRESS PLUG CHANGE Ri= DRIVE NUMBER 


ll. 


BIT SET (’OPE’ ERROR) R3= ATA BIT 
and: , es ADDRESS 


+2=RMER1 
RMERRS+4=RMERC 
RMERRS+6=RMNR2 
* THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 


PROGRAM LISTING 


FO3 


SEQ 0031 


MD-11-DZRNF-A RMO3 
OZRMFA.P11 


PRS SOnE SO MRR ERS ES eae eR ERGs 


[7) 
= 
8 


SSR EEL 


Fosse 


é 
Tw 


Basshh 


GPennt one, Suen seTT Nas 


a 
Efron POL POI a IO 
ae i lige SaTTCH REGISTER 


ae Ee... 


3 BVO Ree soi Logie NO NOISE SCENERATOR 
T10 TEST 

Til 

Tl2 om we, t SPEED TE MING TEST 

T13 One. po aa SEEK TIMING TEST 

Ww TEST 


IMING TEST 
EEX REE 
Tig C ING Test 
Tl NG TES 
DATA ERR 
we 


PATTERN TEST 
y eH 
TEST 





it SYSMAC INES ### 


ERROR ROUTINE 
a OP EE t dre nur 


TRAP DECODER ORE soe ROUTINES 


aoe 1s BB 


INTEGER DIVID DIVIDE ROUTINE 


EXTENDED DRIVE TEST MACY11 30(104%6) 22-JUL-77 16:19 
22-JUL-77 14:59 TABLE OF CONTENTS 


HO3 


MO-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 
DOZRMFA.P11 22-JUL-77 14:59 TABLE OF CONTENTS SEQ@ 0033 





4883 ##% PROGRAM SUBROUTINES ### 
‘3 PORT RH70/RMO3 DRIVER (REV 1.0) 
Be42 (EM) 
8322 (OT) FESR MESSAGES 
(OT) 


T 
F 
8747 ROUTINE TO SIZE MEMORY 
GETADR - GET BUS ADDRESS AND VECTOR ADDRESS 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 2 
DOZRMFA.P11 22-JUL-77 14:59 


. TITLE 1RO=11-DZRNE A RMO3 EXTENDED DRIVE TEST 
Pe; %G TAL EQUIPMENT CORP. 

j HHAYNARD, MASS. 01754 

j PROGRAM BY H. BLACKSTONE 


;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
5 RPRCKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


—OWONTUE WU 


pan 


SEQ 0034 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST 
OZRMFA.P11 


QERIERK SSHVERLON- SSH NTHEGO— SSBVRRESRHSBE VRRPOVLG ow Now coro 


22-JUL-77 14:59 


a2 


MACY11 30(1046) 22-JUL-77 16:19 PAGE 3 


-SBTTL CONTROL SWITCH SETTINGS 





;% 

jx SHITCH STATE ___USE_ aici 

if 1S 0 WRITE P PACK BEF ORE TESTING (TEST 21) veer te 
oor es NO et: WEEN DRIVE FURETIG 

i 1 STALL EVERY DRIVE FUNCTION 

is 13 0 Fee ALL TIME 

:# le 0 eed ALL IN TEST 4 

* 1 DO qi IN TEST 4 

* 8 0 MPL * uy TRANSFERS 

1 i T TRANSFERS 

* ? 0 nN TESTS O-11 

* 1 DO EXPLICIT Bis IN OFESTS 0-11 

* 6 0 0 4 

3% l 

i: 5S 9 Aart were 

+i 0 : Het IVES) IN GOR Bare cg BIT) MODE 

i 1 TEST DRIVE(S) IN 20 SECTOR (18 BIT) MODE 
-$BTTL OPERATIONAL SWITCH SETTINGS 

ii SWITCH USE 

if 15 HALT ON ERROR 

i 13 meray TYPEOUTS 

+i 9 Lo ON 

1 g NT HESSAGE ON INE PRINTER 

;# INGS FROM TTY 

+ 6 INHI TESTS 12-15) 

3% 5 ae (TESTS 16 & 17) 
3% 4 INHIBIT 

+ 3 MTBTT tat SRPARES (TEST 20) 
is f IE Saves Pte ire ef sa) 

2% 0 Inter! READ AFTER WRITE CHECK ERROR (TEST 20) 


-SBTTL TRAP CATER 


041 uniseo Loca TIONS FROM 4 - 776 CONTAIN A *.42,HALT” 
; ¥SE TO CATCH ILLEGAL TRAPS AND INTERRUPT 
#LOCATION O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


21 
DISPREG: .WORD O ;SOFTWARE DISPLAY REGISTER 
SWREG: .WORD O SOFTWARE SWITCH REGISTER 


-SBTTL ACT11 HOOKS 
5, Me RE EE 9 9 9 a a a a a a a a 


SE@ 0035 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 4 


OZRMFA.P11 © 22-JUL-77 14:59 ACT11 HOOKS SEQ 0036 
; HOOKS RED BY ACTI1 
. "soiree. ;SAVE PC 
= ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
“Wl 0 


ditt LOC.S2 TO ZERO 
RESTORE PC 





Sonn STARTING ADDRESSES 


000200 
000200 000137 004636 nat 
; #204 = SELECT SEL mo PARAMETERS 
000204 000137 004660 
;#210 = SELECT 
000210 000137 O04626 asst 
;#214 = conemnar]on 2 OF 204 AND 210 
000214 000137 O04650 
-SBTTL BASIC DEFINITIONS 
anise peerin, ADDRESS OF THE STACK POINTER ### 1100 ### 


"HUY GHT-Ermme «ISTE DEEMMTTEOV oF emioR ca 
ic DEFINITIONS F ZONTAL TAB 
He aig toll, 


ies FS Seotas RETURN-LINE FEED 


eer 


BV SHO VON LW ODS VOR LOU OBw VER Loto CBee VEE cofoe owas aruda cine CoepeD 
at 
Sassi 
as 





1 ‘ 
1 STKLMT= STACK LIMIT REGISTER 

1 PIRG= ee $3 I FRU TR REQUEST REGISTER 
i pBrsP= 177570 He ISPLAY REGISTER 

1 -#GENERAL PURPOSE REGISTER DEFINITIONS 

i RO: 7 33 GISTER 

| a. 5 | ReciStEn 

: 3 iment fel 

1 R= 4S ‘i enat RECISTER 

f 6 6S igen Peateren 

1 SP= % 3;STACK POINTER 

i PC= “7 : PROGRAM 

1 -#PRIORITY LEVEL DEFINITIONS 

mi: fy ipa LE 

1 PR2= 100 + PRT ORL TY LEVEL : 

1 PR3= 140 ::PRIORITY LEVEL 3 

1 PRY¥= 200 ;;PRIORITY LEVEL 4 











SEQ 0037 


LOS 
22-JUL-77 16:19 PAGE 5 


22-JUL-77 14:59 


MO-11-DZRMF-A RMO3 EXTENDED DRIVE TEST 


OZRMFA.P11 





INITIONS (BITOO TO BITS) 


eee 


TAU § ne 
ene PEGRSSSGezt one, STTSITIIIS  —— 


bie Jasassanas snes seoaeaanae paisa oes Pe PEEre 


te 
9° 
el 
GISTER” SWITCH DEFINITIONS 


pew] evil ey] ev vw ey vv ev Pv vy) ent mn emp pny en Cadtal 
eee es es ee eee *MODOOOOOOMOMOOMOOMOm "3 a a 





ee 


BHMGUU RGN BRB SS SSF PPS PT RGRRHRRRhGcS3DSSSBORACARCRRARRR 


a td md td wt 4 hh tg hd hd hd oH tt tt 





MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE & 
DOZRMFA.P11 22-JUL-77 14:59 BASIC DEFINITIONS SE@ 0038 


EQUIV BITOe,BITe 


‘Eouly Brrboret1o 


. ¢ CPU" TRAP VECTOR 
gano04 337 AND OTHER ERRORS 

10 10 3R AND ILLEGAL INSTRUCTIONS 

14 TVEC=14 33"T” BIT 
Es Bs 
IOTVEC= 20 33 
c= 33 
HF 


KEYBOARD VECTOR 
TPVEC= 64 titty PRINTER VECTOR 

PIRQVEC=240 ;PROGRAM INTERRUPT REQUEST VECTOR 

33 SH HHH HHH HHH 


-SBTTL RH70 REGISTERS 
5 7 JHHHHNHHHHHHHHHHHHHHHHHHIEHHHHHHH HHH HEHE 
;CONTROL AND STATUS REGISTER 1 (RMCS1) 


D.DD DD.D.D.D Dow en ee een eed a 
BIFRLEH-“SBEIRRIBHREB 
bes hae 
» > 





ie 100 ENABLE (BIT #6) 

= « 

: eee eae a 2 
= 
: se, poe ues PARITY ERROR 

MCPE= ; PARITY ERROR (SIT #13) 

TRE= 40000 ; ERROR (BIT $14) 

;sC= 100000 ;SPECIAL CONDITION (BIT #15) 


Sees CRESS 


ee ee en oe 


MOnNWUIL£ 


;WORD COUNT REGISTER (RMWC) 
(EACH BIT IS CALLED BY BIT NUMBER) 


;BUS ADDRESS REGISTER (RMBA) 
(EACH BIT IS CALLED BY BIT NUMBER) 


;CONTROL AND STATUS REGISTER 2 (RNCS2) 


rururororuru 


pen 


RESRSS REN SNS 
eases ce 


a 
3 


“A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 7 


-Pll 22-JUL-77 14:59 RH70 REGISTERS SE@ 0039 
040000 WCE= 40000 ;WRITE CHECK ERROR (BIT #14) 
100000 DLT= 100000 sDATA LATE (BIT #15) 


iCEAGH BIT 1s CALLED BY BIT NUMBER) 


5 5 RRREEREE SERRE EERE LEER EE REREEREERA ELLA LE RERLL EERE REREEE 


-SBTTL RMOZ REGISTERS 
; | JHHHHHHHHEHHHHIHHHHHHHHHHHHEHHHEHHBHHEHHHEHHHEHHHHEHHHHHHHEE 


;CONTROL AND STATUS 1 REGISTER. (#00) 


1 1 . 
arees ae : ete CODE att #1 
2 e eee 

Fa= 10 HURT on CODI Bit 3 
Fij2 SFUNCTION CODE BIT #4 
FS= 40 sFUNCTION CODE BIT #5 
DVA= 4000 sDEVICE AVAILABLE (BIT #11) 
;DRIVE STATUS REGISTER (RMDS) (#01) 
OM= 1 ; 
VVs_ 100 ; VOLUME VALID art's s6) SO 
Bees 00 iDRIVE PRESENT (BIT. 49) 
iets eid T eA NSreR (BIT #10) 
bes 5 iLAST SECTO GI aD 
MOL= 10000 sree ON-LINE (BIT #12) 
fie: D000 T T IN PROGRESS (BIT #13) 
ERR= wees (BIT #14) 
ATA= 100000 Pats AL ACTIVE (BIT #15) 


;ERROR REGISTER #01 (RMER1) (#02) 





: IlF= 1 sILLEGAL FUNCTION (BIT #0) 
b ILR= 2 : REG (BIT #1) 
RMR= 4 ; : F cat ON REFUSED (BIT #2) 
PAR= 10 : (BIT #3) 
FER= 20 jFORMAT (BIT $4) pe 
E 10 tBRe Hae ERROR alt #6) 
HCE= 200 HEADER ERROR (BIT # 
HCRC= 400, ‘ : CRC (BIT #8 : 
. oe 4 : ( 
IRE= p * INVAL BIT #10) 
DTE= ‘i BRITE TIMING CREO TBIT B12) 
= go 
Opi: 30000 Dale 
.  UNS= 40000 ‘DRIVE UNSAFE (BIT #14) 
OcK= 100000 ‘DATA CHECK ERROR (BIT 15) i 


BEE SRRERE BISON LANA O METERS SURO T Se ARS SOT : 





BO4 
22-JUL-77 16:19 PAGE 8 


SE@ OO40 


1046) 
TERS 


-_ 
-_ 


-OZRMF-A RNO3 EXTENDED DRIVE TEST 
22-JUL-77 14:59 


- BCR et iL iti 


;MAINTAINABILITY REGISTER #01 (RMMR1)(#03) - READ ONLY BITS 


;DIAGNOSTIC MODE 


oor nap SBBREEEES 
SoaGuRseeomoass € 


BE Beceeecue § 


;MAINTAINABILITY REGISTER #01 (RMMR1) (#03) - WRITE ONLY BITS 


OmUMTNwWO 
Speen pan pan ham pan pan en ban pon 
MMMMMMMMlC 


;DIAGNOSTIC MODE BIT 


nue 2RESRSEE EE Ee : 


ee ee 


OBCK= 


;ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 


St ee ee ee 


SasVeV2“ee 


en 
4 4 4 Ot 
@nmmmmmam 


ee eee 


OnUMTNwOK 


GSBBSSoe 


Gcecceecuces | EEebsae 


SS Sith etait teh 


TER (RMDA) (80S) 
YPE 
YPE 


a 
ae . So 
#3 
wi ~ 
Ei 
aa 6 
he 
gee 
case Y u 
as & EE 


000001 


Pees 3 33 





CO4 


DLORIVE TEST OD SS ed 22-JUL-77 16:19 PAGE 9 
= 2 
= 40 
= 100 
= 200 
400 
4000 
20000 
40000 
100000 


SEQ 0041 


Vv—-_- 
= 
com os 
ir cmd RAAnO 
w ls ~ 
-_ = 2S22a 
con a 
@ aed oul eed eed od 
~ - Ped Oi 
oOrnorac _ aQmoamm 
fee] et et et er ee 
ed aed, ged ced gel el ae °° eed 
ete OO) o-umMmstT 


fUMeER 
MEER 
(sits 
(BIT 8 
FIELD 
FIELD 
; Pr 
FIELD 
RMO3_ OFFSET DIRECTION 
HEADER COMPARE INHIBIT (BIT #10) 


FERROR CORRECTION COOE INHIBIT (BIT #11) 


# 

*FORMAT BIT (BIT #12 
RMDC) ( 
NUMBER 


;LOOK-AHEAD REGISTER (RMLA) (807) 
;RMO3 MAINTAINABILITY REGISTER #2 (RMMR2) (#10) 


;RMO3 ERROR REGISTER #02 (RMMR2) (#10) 
;OFFSET REGISTER (RMOF) (#11) 


Se Ee 


SU SSE ESS Sih it hia aaa roc 


Ozaa.Pil  Se-Yuc- 
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OZRMFA.P11 22-JUL-77 14:S9 RMO3 REGISTERS SEQ 0042 


;CURRENT CYLINDER ADDRESS (RMHR) (#13) 
;(EACH BIT IS CALLED BY BIT NUMBER) 


STEAL CREED POH? NineeA 


SeSRRe 


410 
4d ;RMO3 ERROR REGISTER #02 (RMER2) (#15) 

HE 

4 2 TOR PLUG ERROR (BIT #13) 
ug 8000 oi: GBboo INCOMPLETE (BIT 815) 
418 SECC POSITION REGISTER (RMEC1) (#16) 

419 ‘(EACH BIT IS CALLED BY BIT NUMBER) 

421 SECC PA REGISTER (RMEC2) (#17) 

422 : (EACH BIT IS CALLED BY BIT NUMBER) 

is | JHBHHHHBHHBHHEHHEHHEHEHiG HEHE UHHH EHH HEHEHE 
45 : OP CODE DEFINITIONS 

ne rete for 03 

d rents ares 

430 000107 RECAL=107 

431 000111 111 

432 000113 =113 

433 000115 OFFSET=i15 

434 000117 RICs117 

435 000121 READ e121 

436 000123 PACK=1 

437 000131 SEARCH=131 

438 000151 WRCKO=151 

439 000153 WRCKHD=153 

44g 000161 WRITE=161 

441 000163 WRTHD=163 

yup 000171 READ=171 

443 000173 READHO=173 

BB one 

HH Spode =145 

448 OTHER EQUATES 

4sO 177400 SCTRWC = -2S6 ;WORO COUNT FOR SECTOR re: 
Ho 010000 FMT22=10000 tFORMAT 22 BIT 


3 


£ 


SSECEREE RASS OGRE : 


888888888 SS88S888S88S8SSSSS8SS8Ssssssssssss 


Gan ee Bees pene Bhs fat os fh Be Bret freee fat eae feno bee Bene bee frome peat me me Gee fhe Dean bs fem fa ft bs Bs ht Bn ee Bos bo Pes Fs pe Bes ee fe fs ee Re ee 


1-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 11 
-Pll = 22-JUL-77 14:59 COMMON TAGS SEQ 0043 
.SBTTL COMMON TAGS 
3p SESE SEE SESE SE SESE SE SESE EE SE S S aE 
‘THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
*4USED IN THE PROGRAM. 
-21100 
SCMTAG: ;;START OF COMMON TAGS 
: 33 re eet i 
eterna: Ppl NUMBER 
ICNT: : CONTA TUF ERATION COUNT 
ae cave ae 
te. ;;CONTA 
SERTTL: ; CONTA AL DETECTED 
SITEMB: 5 SCONTR ITE ot 
2 SERA: Con ais Skea fans ame 
af ot | . 7 ad 3 2 
SBOAOR: ; }CONTAINS OF *BAD’ DATA 
SGDDAT: . T 
SBODAT: 





RE RE EIS 


| 


: 
POoooE EE BP SEEEARARL UL ESEE rrr EEE TTT Set 


ZNSFER SYRRENSFESSRRENBRERVS TH eHoReBRSS 
2 BR meni 
pee wee : 
2aG Hs T= Sat 
oy. 
‘ 


PORBRINSKES Ge Dee fre fee bn he Be fm ft fee f= bet hn fen fen ee pe bn fee gk Pee fee Bes es fae Pes es ee 


BURRIS SE SPRL OO SOARED RES Sa Volz 


000000 
TCH T 
tren My Bill SS HAUG HELENE 
177560 TKS: 1 $5 STA 
177ePa SIPS: 1 >: TTY STATUS REG. ADDRESS 
177566 STPB: 1 ‘ s3TTY PRINTER ORES 
Obs Seite: e, HCOMTaINS 6 OF eTreR TERS REQUIRED 
o 9° s* 
: ° Sie FLAG (BIT<57>=0=YES) 
Sieons: 7 i coMAINe THe FROG 
*:WHICH (SREGO) WAS OBTAINED 
GO: 0 5 Conte fe GAD) +0) 
SreGl: s 0 : CONTA CC GAD )+2) 
sre 5 conan (CSB) 46) 
G4: 0 *:CONTAINS (($REGAD)+10) 
SREGS: J * CONTAINS ((SREGAD)+12) 
ies ae Bepeate 
D0 STIMES: : j FAX, NUMBER OF ITERATIONS 
10 : .ASCIZ <207><377><377> 35 CODE OR BELL 
14 ‘ Beett /2/ se TION MARK 
9° 
aH er Ae iB eee 
jj Messninessbenseesecvesecusscetiecteecetesseussaeunsserssacuens 
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DZRMFA.P11 22-JUL-77 14:59 COMMON TAGS 
5G Yon : ° SWIT 
i SAVCSH us ‘Hoe p oe ous; CONTENTS OF °C. SWR’ 
1 :. FLAG (O=NO, -1=YES) 
1 LPTAVL: ‘Hoe 6 Ak STO US TOLNO Sats 1=YES) 
i Terie: “HOw | 176777,3 “is cleared 12-2 
1g CLKSTA: .WORD 0’ ras (O=N0 CLOCK, +1=KW11-P, 
TICKMS: . 16. 216 MILL CLOCK TICK 
st HESS: HBS tas, HAD ASSRR OSHS 
CHKDRV: .WORD 0 pave UNDER TEST 
DRVMSK: :WORD 0 : DRI I 
SVSTAT: .WORD 0 :STA INDICATOR 1S 
CYL. RD: .WORD O sCYLT READ 
SEC. RO: “WORD 5 SECTOR 
SEC. DS: “tonp 5 atten teste 
TRK.OS: .WORD = 
TIM.UP: : WORD > MINI 
“WORD : OF BELOW MIN. LIMIT 
-HORD : 3 MAX TI 
"WORD 0,0 TOT he BL SEEKS rg Sms 
“WORD 0° INUrBER SENS 
TIM.DN: .WORD 0 >MINIMUM TI 
ar - WORD : jNEER OF | OF a BELOW MIN. LIMIT 
"WORD O IMUPEER oF . LIMIT 
es ‘ee 8 ita dot ese 
WeCFLG: - HORS sPOL WRITE CHECK FLAG (TEST 20) 
ee Tao: “ip 8 iveninate Sha eer a) 
. ,0 Save TEST 22) 
SEKTMR: ‘Be a (TEST 10) 
raat ; ; Cm : FOR SERVO SETTLE DOWN TEST 
TRCKMC: :WORD  -<256.#32.> A FULL TRACK IN 16 16 BIT MODE 
STALLI: .WORD 10. TE nitL Me ALL (TEST O-11) 
SraLle: “WORD 10. AL (TEST 16-21) 
MXSTAL: “WORD 25. trax. ALLOWED IN TEST 4 
ERR.CT: .BYTE 100. OF IN TESTS 16 - 21 
BEFORE GOING TO THe TEST 
23 .BYTE 0 : RESERVED 
“ADDRESSES AND VECT 
bbe RH.ADR: .WORD eon ;RH70 UNIBUS ADDRESS 
RHVEC: .WORD 254,5#32 *RH70 VECTOR ADORESS AND PRIORITY 
564 PKV: :WORD 104) 106 *KW11-P VECTOR ADDRESS 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 13 


OZRMFA.P11 22-JUL-77 14:59 


78 
B 


SEQ OO4S 






S65 PKCS:  .WORD 17es40 sKLI-P CONTROL AND STATUS REG. 
ops Pee: “ORD 175249 *KW11 
LKV:  .WORD 100,102 *KWL1-L VEC 
UKs: . 1 *KW11 BTUs GISTER 
: ° 1 ;1TY 
1 a. ioe 177566 TTY PRI 
LPS: .WORD 177514 ‘LINE PRINTER STATUS 
LPB: .WORD 177516 LINE PRI 
-BIT TABLE 
BITS: .WORD BITOO 
; WORD ae 
580 ‘eo BITO4 
: 1T0S 
: ti 
. T 
. IT 
58s ; 1709 
: 1T10 
’ ITll 
: 1Tl2 
: itl 
Ey a T14 
1 “WORD BITIS 
592 00 .WORD BITOO 
a3 oe T 
ral ‘ T 
tet 
mB toe He 
598 "WORD  BITOb 
599 00 “WORD  ®BIT07 
a 
BO¢ -COMMON STORAGE FOR TEST PARAMETER 
503 001S04 PRM: “WORD 0 ;THIS WORD TELLS WHICH OF THE 
604 *FOLLOWING PARAMETERS ARE TO BE USED 
60S 001 RPT: .WORD O : T FOR ALL TESTS 
00151 FC: - WORD 3F RST I 
00151 LC: . WORD : CYL 
608 i 14 Ic: “WORD 0 it CYLINDER 
610 001 LT: “Honp 0 iT deT TRACK 
bli 15ee I: “WORD O : Figey seer 
be alee ie UST eserae 
Bis 001 NCL; “WORD NEW EYLINDER ADDRESS 
3 rated NC2: “WORD O NEW RYCINDER ADDRESS 
18 - TABLE OF PARAMETER POINTERS 
619 001536 002330 PRMPT: .WORD PRMO 
620 OO1S4YO 002344 “WORD PRM 


HO4 
22-JUL-77 16:19 PAGE 14 


SEQ 0046 


if 


22-JUL-77 14:59 


Pil 


MD-11-DZRMF-A RMOS EXTENDED DRIVE TEST 


; TERMINATOR 


UPPER LIMITS 


EPEEFREREEREEER EY 





: E Peg aerrnins 


e saanuaaaaas 
Hepgesgeeseg 


*es es se es e® © e we @ Be 


“beet 


ee ee 


saeseeods Stet UReRy 


oe rm a a et a et ee tn ed tH ee 


S888888sssss s8888ssi 





Ss & 

=~ if 

Sw 

in 
0 9 
g 6s 
isi 
=-_- ¢& 
wr - 
SS 

ro 
# > 
sm 
Se 


;STATUS/ERROR I 
‘DEFAULT VALUES 
DFLT:  .WORD 


SSPE = 
—4 
~ 


eed ood a ee 


88888 


E PN WN Weare ey eee SERRE RR TC OES LULL TELL SNS 


MD-11-DZRNF-A 


OZRNFA. P11 
ae 


BB RRE BROS 


Bee 


RE 


SER REORS SSeS 


NNNNNNNSS 
b= Bb Bt pe 
ONC CWO 


AOSTITRI NS 


RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 
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Gee Bes 6 EesCGeeesere (2 EcsteEe 


2 
y 


SSS5855 55 8 2555 8 





55 
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1177,1,0,410. 0,822. ,1,0,0 
1177, 10,0,256. ,0,512.,1,0,0 
1177,1,0,410. ,0,622.,1,0,0 
1177,1,0,410. ,0,822.,1,0,0 
1177,1,0,410. ,0,822.,1,0,0 
337, 5000. ,0,410.,0,822.,0,4 
177,1,0,410. ,0,822.,100. ,0 
1177,1,0,410. ,0,822.,1,0,0 


1113,1,0,0,0,0 
37,1,0,410. ,0,822. 
37,1,0,136.,0,255. 
37,1,0,410. ,0,822. 
113,1,0,0,0 
1013,1,0,0,0 


SEQ 0047 
; INCREMENT SEEK (Te) 
;STEPPING SEEK (T3) 
;OSCILLATING SEEK (T4) 
; CONVERGING/DIVERGING SEEK (TS) 
;SERVO ADDRESSING LOGIC NOISE (T6) 
;RANDOM SEEK TEST (T7) 
;SERVO SETTLE DOWN TEST (710) 
;ALL SEEKS TEST (T11) 


;ROTATIONAL SPEED TIMING TEST (Tle) 
;ONE CYLINDER SEEK TIMING TEST (T13) 
;ACCESS TIME MEASUREMENT TEST (T14) 
;MAXIMUM SEEK TIMING TEST (T15) 
;SECTOR ADDRESSING TEST (T16) 

; TRACK ADDRESSING TEST (T17) 


7777,1,0,410. ,0,821.,64.,0,4,1,1,0,177777 ;DATA TEST (T20) 


37,1000. ,0,410. ,0,821. 
37,5000. ,0,136.,0,255. 


;PARAMETER TABLES 
RECAL/SEEK (TO) 
RMO: . 


;EXERCISER (Tel) 
;RMO3 ACCESS TIME ADJUSTMENT TEST (Tee) 


JO4 
22-JUL-77 16:19 PAGE 16 


22-JUL-77 14:59 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST 


OZRMFA.P11 


Lk oa 
— — 
SmoF 08 


(T4) 
/DIVERGING SEEK (TS) 


i cue iS) » .. o a 

eli af = 

oo —=ONMOUNOOD000 ~aH0700-00 Ran a a OF00-00 
Fev 


eg Sapgseoennes Saegreenre — means fees 
: ee | 





mia me 


_ BRRASERREPEEREE RRR RR EERE RE RE RP ERE REPRRRRRRKRRRERE ROR E RE 





MO-11-DZRMF-A 


OZRMFA.P11 


SoHE Re SSE REO oS 


@aoweo 
BO ee 
NOU 


SERRE SESS 








\y*=t 


pene 





at 


FSaT SRO SORE 





EXTENDED 


RMO3 
22-JUL-77 14:S 





DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 17 
9 COMMON 


TAGS 
.WORD 1 
.WORD O 
.WORD O 
igeRVO RODRESSING Loic NOISE GENERATOR (Tb) 
: : ll 
.WORD 1 
WORD 410 
“HORE 7 
.WORD 822. 
.WORD 1 
WORD 
“RANDOM SEEK TEST (17) 
PRM7:  .WORD 
WORD 
WORD 
“WORD 4 
-SERVO SETTLE DOWN TEST (T10) 
PRM10: - WORD 177 
WORD é 
“WORD 410. 
: 2 
“WORD 100. 
“WORD O 
-ALL SEEKS TEST (T11) 
PRMI1: FORD un 
410. 


5585555 
— 


MING TEST (Tle) 


: 
i 
: 


. 8 . 2 
We 


a 


oOo00e- 


,ONE CYLINDER <S TIMING TEST (T13) 


SEQ 0049 
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DZRMFA.P11  22- x rere COMMON SEQ 0050 
.WORD 1 
ioe 8 
: 410. 
.WORD O 
.WORD 822. 
“ACCESS TIME MEASUREMENT TEST (T14) 
PRM14: .WORD if 
‘Hoe 136. 
.WORD O 
.WORD 255. 
“MAXIMUM SEEK TIMING TEST (T1S) 
PRMIS: .WORD if 
ps 410. 
.WORD O 
-WORD Gee. 
“SECTOR ADDRESSING TEST (T16) 
PRM16: .WORD 113 
“WORD 1 
WORD 
- TRACK ADDRESSING TEST (T17) 
PRM17: .WORD 1013 
“WORD 1 
-WORD O 
“WORD O 
_ ,WORD 0 
“DATA TEST (T20) 
PRM2O: .WORD r” 
‘Hoe 410. 
BBE -WORD OO 
BE “WORD 21. 
BBE “WORD 64. 
BBS “WORD O 
“WORD 1 
es “WORD O 
eae PTRNIS: .WORD 177777 
-EXERCISER (T21) 
PRMCl: .WORD 37 
.WORD 1000. 
"WORD O 
-WORD 410. 





MO-11-DZRNF-A RMO3 ey aas _ TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 19 
OZRMFA.P11 22-JUL-77 1 COMMON TAGS SE@ 0051 


| tel in : “Hoa Bean. 


;RMO3 ACCESS TIME ADJUSTMENT TEST (Tee) 
‘ag | |Cl™ 
ie i 
1 


; TIMING LIMITS 
T7A: 


rare 


634. ; (16.67-2%) ##2 
1700. ;(16.674+2%) ¥#2 


wow0woono 
a i oe 


OCNIG UN .£ 


ee 


T7B: 


;(16.67-2.5%) ##2 
: (16. 67+2.5%) ##2 


T10: 


SSSSSSS055in008 5885 S555 E555 5555 FSS 


MSG 

MSG 

oo ;NO LOWER LIMIT 
3 (7) #2 

MSG 

MSG 


Tll: 
3;NO LOWER LIMIT 
; (32) ##2 


Tle: 
;NO LONER LIMIT 

; (55) ##2 

PATO ; TABLE OF POINTERS WHICH POINT TO THE 


PAT.PT: 
PATI PATTERNS USED BY THE DATA TEST 


MUSE EPR ESE R RS cna 





NOY 
MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 20 
COMMON TAGS 


OZRMFA.P11 


IE 







SSE IR RETRO O Se PRL ER BORER TOR od od soa e ROS Coen 


Re Pe Dh Bm ee Ds em ee Bee = ee 


=e 
Ua 


003104 


R 





4 


+n 


ay 

ae 
1 
74 


tatatn 
A 


‘ES BERENS SS 





22-JUL-77 14:59 


cee RENEE FREE 


y 


q 


;PATTERNS O THRU 15 


PATO: 


PATI: 


PATe: 


PAT3: 


. 85 EBSSESSSSSS5555 EESSSSSSS555555 


re © «6 


se . * ee 8 oO 
-= 
So 
- 
ome 
AJA 
- = 


ee: HE 


Ge EeceesaaaslaS) NS 





we 


sPATTERN 0 


;PATTERN 1 


;PATTERN 2 


sPATTERN 3 ; 


BOS 
22-JUL-77 16:19 PAGE 21 


046) 


_4 
~ 
“_ 


MACY1 
COMMON 


DRIVE TEST 
14:59 


a7? Ti: 


es 
5 


“4 
= 
Le 4 
ae 
2 





;PATTERN 4 
sPATTERN 5 
;PATTERN 6 


PAGANS: Blipenaeeunrens UCOMmNRn GGG ers 
GUEUEEREREENGE SEEREREERERENREE eueRenmeRenRenes euenEeE 


soma ns Ol 


Sd a ey Od ea od eo 


12eSeS2 


Se 


ROR GEE 
SOU UEESVUSaaae Bannan 


i feteteteteteis ic Stine Ne teeheit veteran amen eR Re eRe 


a a i dd nd a ed ed ad a a a hd ad a a a re ad a ad a ad ad dd dd dg ad Gd dd Od dd dd ds 






COS 


—e " “A rated coh TEST macy FOLLONe) 22-JUL-77 16:19 PAGE 22 


SEQ 00S4 


;PATTERN 7 
;PATTERN 8 
sPATTERN 9 


GEREGES! Biiccekiecsictens Oem eaniaeans FRGeueeueeee 
GESEREEEE EUQURERORRERCNNG cegenequenenvens genzenennene 





a 


SPCR CER LEE RaNEE ER BER ENDER RD RERUREASRES UNE EN SERENE 
Ed dd td ed et 


NE ed ee dd yd a a a 





DOS 
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SE@ O00SS 


T 


MACY11 30( 1046) 
AGS 


22-JUL-77 14:59 


MD-11-DZRMF-A RMNOS EXTENDED DRIVE TEST 


OZRMFA.P11 





;PATTERN 10 
PATTERN 11 
PATTERN 12 


Bae RRCRRRERREPOSGAN MEURANUtinutaed (AGGOpERRRER RK 


a a a ed Od a ed ed ed ed do Ht a hd ht tH 


ee Ss Ss 


PAT10: 
PAT11: 
PAT Il2: 





ae rn ae mbes 


a aS HE od Oe eg Od red ed ed eg od ass LE PL a iY ee ed ad eg eh eg ad ed ed mg wg 4 te 





KONGERS MRA BARS Ss HST PPS PT RANRTRRRASosoSSSGBORARRRRERERS 


pa phe ple ph ph pM ph ph peK pM EK Mek A AAA AR A ee eT lle a -_ 
Oe ng red Rd me td ed ed ad dd a ed a ad dd a eg ed ed ed Oy ed dg a dd ed ed ed ad ed ad gee a He 
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22-JUL- COMMON T 












OZRMFA.P11 14:59 SEQ 0056 
1181 153333 PAT13: .WORD 153333 ;PATTERN 13 
il 7 -HORD 7 
il : 

H oe 

tie : 7 

11 53333 .WORD 153333 

it 7 ers 7 z 
Hat Gaur (esse ee ee 

Lge ? - WORD ? 

il . 1 

1g peer .WORD 06566 

Ls bpeees “ORD ieee? 

ig PAT14: .WORD sPATTERN 14 
i ‘ ata WORD cae 

ish le 1a “HORD 177777 

i 14° 177777 . WORD 177777 

1 eeeee aris 177777 

rl 177777 : 177777 

1 177777 -WORD 177777 

1 177777 .WORD 177777 

1 177777 .WORD 177777 

1 177777 “WORD 177777 

1210 177777 “WORD 177777 

1 i 177777 “WORD 177777 

lel 177777 .MORD 177777 

isis 177777 “WORD 177777 

1215 177777 PATIS: .WORD 177777 sPATTERN 15 
1 18 noc are 00000 

18 x ‘ 

igi ie 

Gives 

1 ; WORD 

1221 WORD 

1 . 00000 

Ee Se 

1 “WORD 000000 

1 .WORD 000000 

1 -WORD 000000 

t 1 iO GooeoG 

: 1 “ORD 50008 

i ;DPB (DATA PARAMETER BLOCK) 

1 004104 DPB.A: .BY 0 :(0) DRIVE NUMBER 
153 004105 BYE 0 *(1) OFFSET VALUE OR FMT22, ECI, AND HCI 
1236 004106 .BYTE 0 (2) COMMAND 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 2S 
COMMON TAGS 


OZRMFA.P11 22-JUL-77 14:59 SEQ 0057 
1237 004107 000 .BYTE 0 3(3) PSEL AND A17 AND ale , 
x: e 8 e 

fag Grill Ges WS Barren GL ee at 

! 1 Oo4114 000 .BYTE 0 510) SECTOR ADDRESS OR 

ies 004115 000 BYTE 0 (11 EEX 5 oR 

1 Aer: ; I 

ie ete Meret ieee Rw REG : (16) ’ ale “POTTER 

ie : beations OF were DRIVER 
t . EcISTERs ¥ IF LEFT 
1530 PERO CG oieRe oe hot SAVED 

1 004122 000000 .WORD O = ( g) STA I TOR 

1 3B 1=) 

1526 dart B1T06-81T03 
1esb sTOLCATE TYPE ERROR 

r 1 DPB.8: .BYTE O :(0) DRIVE NUMBER 

1528 {Se 600 "BYTE O *(1) VALUE OR FMT22, ECI, AND HCI 
1 eb 000 -BYTE : 5 (@) 

lebl 1 000 ’ ?(3) AND AL7 AND ALG 

1 004130 177776 “WORD -2 :(4) COUNT (MUST BE NEG.) 
iS 004132 OS0S14 “WORD BUFFER : {S) R 

1 004134 000 .BYTE 0 (10) SECTOR OR 

1266 FIRST REG. 

1267 004135 000 .BYTE 0 5 AL) OR 

1 ; REG. I 

1269 004136 000000 .WORD O > (12) 

1270 OO4140 004204 "WORD RM.REG (14) NTER 

ir CouTioe Pruete eg 
| elt BOC et 
1 : ZERO abe Nat SAVED. 
1 004142 00000 WORD O 5 (16) 4 INDICATOR 

i Bt topei=> 

158 BIT BIT 81706-81703 
ise i oleate ler a ERROR 

i 004144 000 DPB.C: .BYTE O (0) ORIVE NUMBER 

: 146 DOC -BYTE 0 5 (4) OFFSET VALUE OR FMT22, ECI, AND HCI 
1 thd 000 BYE 0 (5) pert oy AL7 AND Alb 

{ tes Asosig ‘WORD BUFFER 5 ee une te oR eo 
1286 : Rec eTER T 

i 004154 000 .BYTE 0 : { 10) SECTOR ADORESS OR 

1531 004155 000 .BYTE 0 (11) ‘ S OR 

1 LAST REG. INDEX 


SEQ 0058 


GOS 
22-JUL-77 16:19 PAGE 2% 


MACY11 30( 1046) 
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MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST 


DZRMFA.P11 


VALUE OR FMT22, ECT, AND HCI 


ee ee ee 
fete at Sees eae & ce 
cane TE zie : Shaler tat 
ae w SHE pt ouel joe Engst. cpeetetereteree 
sepecieese cccccogtcaeeiteacee © Gapelenzetetty 
: 
& 
ok © necnell «aon © 2 anenewnensionns 
nn ee ee EEELEELEEELEEEE 
’ e 8 
S - 


SRRGRN EK K 8g Sib s SUNN NINN 
e5aa88 8888 20 OB pores teeeeree 
REPRE RE RENCE Reh BEC IUMT ee OOS ONT HOR AT RANI MRR RES TOTS 2S e 


Re eh wm) ye a dh hh dh GO et eg ad a Ht HOt 





004204 
004162 000000 
000 

000 

m 
050514 

000 

000 

76 000000 
200 O04204 
000000 


HOS 
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SEQ 0059 


MACY11 
COMMON TA 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST 
22-JUL-77 14:59 


OZRMFA.P11 





5g 
aE 
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§ 
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S PERTINENT. 
AS FOLLOWS: 


t CAN 
OUND 
T 
( 
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THE 
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NDICATE 
RMER2 


RMMR2 
SREG3 RMERRS RMERRS+2 RMERRS+4 RMERRS+6 


EACH ERROR 

beicH ITEM I 
Pat 

Peta HEROER 


‘A 
if 


a 
itor 


NF ORMA 
y 


¢ OBIE, 
ESATRR Wi Gaol CATE 


ERR PC ADDRESS GDDATA BDDATA 


ERROR POINTER TABLE 
a 


a I ll 16:19 PAGE 28 
TEND DH ARE ASCIZ MESSAGES OT IS A STR 


;# ERROR 4 
iE ERUASBUS PARITY ERROR (PAR=1) 


3 eyes BEL. BB ae _ 
: BE Baas = pi Gas pet Baas ad S355 sf 
GR SSSES een, GESTS nnn secckcd sec LES 
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fe 
050340 
Bie 
0SO344 


S sees see She 
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14 ;%  STMPO SERRPC WRT.ADR WRT.WO RD.WRO 
{ 1427 004336 045020 EMY : ve 
14 Ove4? 1 HY : 
ik O4 OTY 
050354 OFY 


* ERROR sien 5 

# SS PLUG CHANGE BIT SET 

% ean x VE RMAS RMOS RMERI RMMRe ss RMERe 

% G1 SREG3 RMERRS RMERRS+2 RMERRS+4 RMERRS+6 


SEEEEE 
RRLERLS 





14 
14 246 QusosH EMS 
14 ES aes DTe2 
144 ante 
ise ;# ERROR ITEM 6 -- NOT USED 
1444 0 
1445S 0 
ins ise Soe 
iuat te 
149 3% ERROR ITEM 7 -- NOT USED 
1 000000 0 
ies BR Gaaee 
te ooased 000000 a 
1455 
1 ;# ERROR ITEM 1 
1387 *# = RH? FAILED TO RESPOND TO ADDRESSING 
*#  RMCSI ERR 
eA 3% RH.ADR SERRPC 
1 10 1 
ee Bs : 
1 DT10 
164 OO4404 050360 DF 10 
1 -% ERROR ITEM 
tie? * DRive SELECTED IS NOT ONLINE 
1 *% DRI ERR PC 
1469 i SERRPC 2 
1471 OO44O O4S162 EM11 
14 10 046557 DH11 
14 12 047776 - OT11 
fe 14 OF 11 
14 % ERROR 
14 Fe | DATA 
14 *# TEST ERR PC TST PC DRIVE CYLNOR TRACK SECTOR 
14 7%  STMPO  SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 
1 +i GOCYL GDTRK GDSCTR BOCYL BDTRK BDSCTR 
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TRACK SECTOR 
TRK.DS SEC.DS 


CYLNOR 
CYLNDR TRACK SECTOR 
ae: TRK.DS SEC.DS 
SGDADR 
» AND WROCNT ARE DECIMAL 


OR gv 
SGDADR 
WROCNT 
G RN REG+12" RA REG+4 Rn REG+O RA REG+2 


ARE DECIMAL 
SGDADR SBDADR 


I 
AND 


DRIVE 


Boez° 


SREGY 
PC 
sic 
OWS #15 
SBODAT" SREGY SGDADR SBDADR 
IN TIMING TEST 
IVE RMCS 
CHKDRV RM. 


er 
i 
T 
SEC 
14 -- FOLLOWS #13 


T SBDDAT 
FAI 
PC 
TRACK 
-- F 


CYL.DS TRK.DS SEC.DS CYL.RD TRK.RO SEC.RD 
CYLNDR, TRACK, AND SECTOR ARE DECIMAL 
PC 
GO 
SRE 
TOR 


T 
T 
EM17 


ct 
yeuysy = qn EZ Re E mee Bs F 
oOo WwW : 
J 


me £48 Be bi me i 
me # £43%bf Be gb Re OE 


Bea e eee ee ee er inutun tind OOM omen 


Gd a ed em a a a dh a a dd dd dd Od Od gd Hd Hd 
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RM.REG+34 RM.REG+36 
RMCS2 
RM.REG RM.REG+10 RM.REG+12 
G+42 RM.REG+34 RM.REG+36 


RMER1 


1 


RMOC 


NOR 
DS 
OR 
Sector ARE DECIMAL 


an wi 
-REG RM.REG+12 RM.REG+14 RM.REG+4O RM.REG+2 
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1 


CHKORY 
e 
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E Bovees | Geo43 ES 

1 

i 3 JHE HHBHEHE HEHE 

1733 ; i neaek Titer Abcen GAT WEE conc cce cameceecume eee 
; 

i f St Wigie dhe tit  It I Te Fm 

1 7 z Ce ot NORE OF THE FOLLOWING: 

1 3% 1 Gir Oe ive Fe 

1 3% 2) 

E Hn te 

1609 *# 5S) ROR 

ied is 5} ON ANOTHER. ORIVE 

161 7% 68) OCCURRED DURING 1/0 OPERATION 

13 ii io XCCURRED DURING NON-I70 OPERATION 

bie *# 11) ) AlomnTC Re | CALIBRATE SEQUENCE OCCURRED 

bi O04S46 ITEMH1: 

18 ;% ERROR ITEM 41 - 


ti — RH7O/RMO ERROR (MESSAGE) 


045461 EM41 

7356 DH41 

160 DT41 

OO4SS4 OS0444 DF41 


;# ERROR ITEM 4 

3% (MESSAGE ) 

i TEST ERR PC TST PC ORIVE RMCS1 RMCS2 RDS 

;* STMPO SERRPC SREGO CHKDRV RM.REG RM.REG+10 RM.REG+2 





SGEFLGHASBBGOR EEN SBS VOR POS 


MeL ~ EMY 
i Bra 
OF4, 
* ERROR u 
F Test Ms ST PC ORIVE RMCSI RMDS 
j#  STHPO SERRPC eo RA-REG RA.REG+IO RN.REG#2 
i RM. REG+14 RM. AN REGO RM. REG+42 
004566 461 EMY1 
904570 BuPuid OHY2 
os0206 OT43 





NOS 
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SECTOR 
SEC.DS 


TRACK 
TRK.DS 


BCR Eos 10 Fa Recese REM ceat BH. REGS IN RM REG+OE 


i 
"Rack, “ANDY Cfor ARE’ DECIMAL 


Ea 
1: 
é 


ERROR POINTER TABLE 


be al lie ale ale ah 


sen 
be 


ee 
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1 Bopp thee 
ies 


OZRMFA.P11 


RH70/RMO3 ERROR (MESSAGE ) 


POSSE RE SS SBS 


SEEDS 


2 a. FA REGOS ma. 


Bt'be FRK-Ds 
RMCS2 RMOS RMHR 
Pa erlo RM eas! 
na yt RM.REG+42 RM.REG+2 RM.REG+4 RM.REG+22 
’ SECTOR ARE DECIMAL 


+14 


Fivo SEhepe Sheed Bixihv 


' 


2 WA We I BEC ae aie oe aie 


K 


RMCS1 
een 
NOR 


RM. 
CYL 


EM41 
DH12 
DT4S 
DF4S 


SReARARRR 


DOOODO0OOD 


CRERTAL BRITE CHECK ERROR (MESSAGE) 


CYLNOR TRACK SECTOR 
id TRK.DS SEC.DS 
RMDC RMDA 
12 RM.REG+36 RM.REG+34 RM.REG+06 
RMWC RMBA RMDB 


DRIVE 
0 ae, 


I Ee on ae ec ina REG+2 RM.REG+4 RM.REG+22 
i] 


G+1 


- 


ERR PC TST PC 


si Re SERRPC 
PRacsi 
i 
RM 


ba 
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RM. REG 
:NOR, 


CYL 
EMY6 
DHie 


SSSSSesoe 


DT4S 
OFYS 
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coo 
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1 
1 
1 
1699 
Ue OOve2s Shen sii 001226 sa cr $71, 28BUSAOR - BUSADR FLAG 
1703 : 1224 TRTLA: CLR deentmcc AO CONTROG a 
1708 177777 001226 STARTY: HOV 8-1, 98BUSADR § ;SET BUSADR FLAG 
ibe 001226 START2: CLR a CLR BUSADR FLAG 
7s GoveeY 012737 177777 001224 STRTeR: freer #-1,a8CNTRLC  ;SET CONTROL “C” FLAG 
itt SELERAR the CHRON THES ¢ SCHTAG) AREA 

004674 012706 001100 MOV °° SSCNTAG,R6 ;;FIRST LOCATION TO BE CLEARED 
1714 Beno rege 001140 che SiR Ro ; ;DONE? — ae 
1 BNE eater BACK 
17g BoaetB Bi 330e 001100 Ayia R -istac - Hes fo Fock POINTER 
118 Gonos Bisvay boosta hv POC ae ‘cela aa: 
tat Sere Slee Bate) Be my Seat oe ee 
1722 OO4744 012737 Oe4134 MOV eSTRAE STRAPVEC’ +; TRAP VECTOR FOR TRAP CALLS 
tes aires ler, Gong Beall thee 
i 1 176543 HOV see: INUM 3; RINE THE REROON MLPBER GENERATOR 
ree ate Oos037 alts CLR st . Bae Eze TORRE OF TTERATIONS 
Baie mae mf ee Ri 
1731 aah ;;SIZE FOR A H ITCH pects Weice ris 
1733 » 013746 000004 sFEQUAL OV” abeRRVEC, -CoP) 5 ie “— 
rs Geers Glee Bete oom = YR oo icp 
ie fees Weer ie BU || Bip iinw ae eos ele 
1738 005062 001012 BNE 66S’ F NO TIMEOUT TRAP 
1746 005064 g00403 BR 65S oad yO TIPEOUT 7 2 8 
174k 005066 012716 005074 64S HOV 8655, (SP) 
tak oosar4 Oier3? 900176 001140 65S: MOV #SWREG, SWR nace TO SOFTWARE SWR 

102 Oi 174 O01142 MOV 8DISPREG, DISPLAY 

ime 005110 012637 000004 66S: MOV (SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 
iy4a poets an iss Ge tore iGLEaR VaRIABLE STORAGE 
1749 00512 022709 001210 CHP aSBELL, ; DONE 
tet rate O1a39 001414 o01150 MOV @RTPS,aNSTPS © SETUP THE STATUS AND BUFFER REG’S 


? 


OO be eb Be ee eb bb be hb be be bb bh bb be eh pe ee 


EP eT nA BER ote = Oe = so 0 


001152 atTPB, dsSTPB ae THe TYPE ROUTINE 
a1 it RST ST 


: 





1 
i ART ? 

1 $$ TLE Fete PROGRAM’S TITLE 

: 42 i ics OR CHAIN MODE ? 
1 000011 000041 te AN RMOZ ? 

1 1002 

174 104401 050612 


GR RGR ss 


2s 
LOADRV THE PACK 
‘ Oiee. SH Nee IVE cs Ig 5 eee BE TESTED 


shoot 


SRR EGNOS SRR SO BEE RRSRRE BISON SINISE CE RCRD 


2s: get 
PC, $SIZE 
CrP eno Cita THE SYSTEM ? 
TYPE _, NOLOAD tity ee THAT THE ’XXDP’ LOADER 
3S: JSR PC, STKINT 
-SBTTL GET VALUE FOR SOFTWARE slits LS 
TST ate RureNG UNDER XXDP/°CT? 
CMP SWR, #SWREG ieee CH REG SELECTED? 
BNE 68S >BRANCH IF % 
GTSHR on bt CET SOFT-SWR SETTINGS 
678: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
INC 8-1 iSEE Sit FIRST START 
BNE SRTINT 
ISR PC. GETADR CHECK THE RH70 ADDRESS 
SRTINT: TYPE sacar 
JSR p @SLP.AVL ; A LL INE Ne PRINTER 
; 
MOV a cor SET I he TRUNT TO 1 
ISR PC, J8GE TSHR :G0 FOR CONTROL SWITCHES 
JSR 2C; a8ST.CLK * INITIALI CLOCK 
SETVEC: JSR PC’ RMINIT > CHECK DRIVE STATUS 
MOV 8-1, SAVEFG *SET THE SAVE REGISTERS FLAG 
ADD #-1; 80 >FIRST START ? 
BCC 1s BR IF YES 
TS? c : *C’ SWITCH SET ? 
BNC SRTDRV ‘CONTINUE IF YES 
11S: MOV #PR7, PS iSeT PRIORITY TO 7 
CLR RY ‘DRIVE TABLE POINTER 
TYPE ,SCRLF :CR 
a TYPE  ‘SYSTAT TYPE STATUS HEADING 
MOV R4, -(SP) ;;SAVE RY FOR OUT 
:: TYPE DRIVE 
TYPOS *:G0 TYPE--OCTAL ASCII 
-BYTE 2 DIGIT(S) 
"BYTE O + PBRESS LEADING ZEROS 
TYPE ,MSG.SP ; SPACES 
TYPE MSG. SP * SPACES 
TSTB —s ORVSTACRY) “CHECK DRIVE’S STATUS 
BMI 4§ :BR IF UNSAFE 








DO6 


i 
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1878 001020 BNE cs ;BR_IF ONL 
1 STB (RY) : IF, oer OR NONEXISTENT 
181 Q : if 
i ip PPE | ROTRN ve er i 
181 BR as Ee 
1814 2s: TYPE NOTPRS : 
181 BR &s ice ok ey DRIVE 
181 3S: TYPE UNTOFF *DR NE 
181 io BR 6s i DRIVE TYPE 
t 1g BR ' 4S ee ip Mi VE TYPE 
1820 cS: TYPE , UNTON *DRIVE ONLINE a 
1 6S: TYPE MSG. : 
1 005520 MOV bfeenea QS : OF RMO3 MESSAGE 
1 035376 BITB 881702, RVTYPCRY} RMS : 
16s ae , NOTRM iNet Prive tot AN RMO3 IF NOT 
i 7S: TYPE a : I 
165g tf ivpee SCRLF ; 

INC RY + DRIVE NUMBER/TABLE POINTER 
1830 CMP RY, #8 *FIN ? 
1 BNE 1S BR IF NOT 
1 CLR PS *SET PRIORITY BACK TO ’0’ 
ies SRTDRV: qs :CONTROL "C* START/RESTART? 

MOV ; 
1 ADD ; T See wae IS DIFFERENT 
1 BIT - 1S’ ie ’ 
1 BEQ $ 
1 001222 MOV 35 * VAL 
1 JSR : PRRPRE TERS: TO THEIR DEFAULT VALUES 
tf = 7 
1 1S: JSR : PARAMETERS 
1 CLR SELECTED 
1 CLR ERMINE THE DRIVES THAT 
1 MOV ARE AVAILABLE FOR TESTING 
184 2s TSTB 
1 BLE 
1 001232 BISB 
1 33: INC 
1 ASLB 
i 4§ ane er G SEEK FLAG 
1 001220 BIT SSB D9C. SHR eae BEFORE DATA TRANSFER? 
1 BNE 3s ‘ : YES--BRANCH 
163? 000041 SS: cree ara ; LOADED Fron aN R03 ? 
1 001232 I TOO, ORVSEL 0 TION BIT 
1B ws. He Sree. DOO TION 
i : ctr SESENOCT eR DRIVES TO STED™ 
1Be5 MOV JSORVSEL , R1 : ANY ORiVES 10 B a 





SEQ 0069 


E06 


moat pag made Startle 


spose pal * 


TIMING TESTS WILL NOT BE PERFORMED 


B AND 
PROGRAM 
ORMAT 
TED ? 
aft PER DPB. A+1 


JUIN oowcneeweeeencerene=) 


” 
ON_ENTRY 


FOR_TYPEOUT 


fy 
igiprness Us 
FORM DRIVE NUMBER 


SE ECTED 5,107 ne 


COMMAND 
ERROR GO 

ORMA 

YES , 
Te F 
CUTE 


a Bis SE 
BRI 
FLO APE 
INIT CHECK 
PALES 

ween 
cee 
REARS BNE SPE 
a 


SET THE DRIVE NUMBER INTO THE DPB’S 
; NTO DPB. ‘ 
END OF 
BIT F 
REQUES 
THE COMMAND 


SREPORT THE DRIVES TO BE TESTED 
INOScARY TIRING TESTS TO BE PERFORMED? 

eS 

T0 CHECK 

a 

THE 

10 

IF 


;GIVE THIS DRIVE A PASS 


;KW11-P AVAILABLE 


YES--BRANCH 
;GO0 TO END OF PROGRAM 


T, @8SEOPCT 
, 28 TSTNMS 


y 
aeSEOP 
Rl 

7$ 

a 

RO,- 

1 

0 
"i 
7 
RSTRT1 
piste 
1$ 
START2 


7 yy 


eign nee 





ut egueetocngte cots 





foes senuFeics casos Sent 
gE 
cS y weg 
= am 


iN 
& 
‘11a 8 fee 


i 

UMS Ge SER 
[eee 
7s DSCSUEE ENE RANARADERRDEEEELE Sibutstitoiiattt 


Bd a ad a ad dd dd dt dd a ed nd dd a 
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1920 026032 JSR RO, 8CALL.A ;G0_ EXECUTE THE COMMAND 
Hoy oir me eg Ph 

1 HES TYPOS : + 

1 .BYTE 1 $3 iGIT CS) 
ise “BYTE O ~ $3 

1 t rane TYPE Pea i TAL NUMBER ’ 

1 1 MOV 64, RO ;FOUR DIGITS TO TYPE 
1 1 004234 MOV RM: REG+30, Ri Sent NUMBER 

i 1 aor a NEXT DIGIT 
1 ite ROL Ae aut Te 

ig x 8 

1935 reat ROL Ri 

1 102 ROL R2 

1 1 ROL Ri 

1 ROL R2 

1 000060 ADD #°0,Re sMAKE IT ASCII 
1940 010227 MOV Re, (PC)+ *SAVE IT 

reads 990000 4g: .WORD O 

1 104401 006300 TYPE 4§ ; TYPE 

1943 905300 DEC RO “ALL DIGITS TYPED? 
1944 BGT 3$ NO -- BRANCH 

1945 104401 001215 TYPE $C 

1946 113737 001364 001115 MOVE ERR.CT,SERMAX ;SETUP MAX ERROR COUNT 
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1948 
1949 


BoB 


-SBTTL sees TESTS sees 


g7BNS ZENG ZENG ZENS ZENG ZENS ZENG ZENS JBN ZBNG ZENS ZENG ZENS ZENS ZENS JENS JENS ZENG 
3/4N: Z9NS 7BNS ZENS ZENG ZENS ZING ZENS ZING ZING ZING ZENS ZENS ZENS ZENG JBN ZEN ZEN: 
2 /#N: ZENS ZANE ZENS ZENG ZING ZENS ZENS ZN: ZENS ZAIN: ZENS ZENS ZAIN: ZAIN: ZEN ING 74N: 


;#IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED 
j HAND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 


j IMENONTC VALUE VARIABLE 
i 

:#R 1 ITERATIONS ( TS) 

eFC 0 FIRST CYL ADDRESS 

it c 410 OR 814 CYL $s 
jHNC OF NCL CHIC NEW OR MODIFIED CYLINDER 
> ¥NC2 LC-IC NEW OR MODIFIED CYLINDER 
is ADDRESS 

:4FT 0 FIRST TRACK ADORESS 

he 18 LAST TRACK 

; NT FI+IT aoa oR eNOOIFTIED TRACK ADDRESS 
: 

2 #FS 0 FIRST TOR ADDRESS 

#5 21 7 seeToR ADDRESS 


p73 NMS NR 2 NZ 2 NZ NZS NZ NZ NZ 2 NZ 5 NZ NZS NBR NZ NZ NZ NB SNR NE 
5/3 AS TAS TARY TABS TABS TERS TERN TERN TAR TAOS TARY TERS TARY TARY TAR TERN TARY TERS | 
373 NZS NZ SNRs NIRS NR 2 NZ 2 NZ NZ 5 NZ NZ NZ NZS NZS NZ NZ NBS NB NE 


-SBTTL ##% SEEK TESTS #2# 


5 7BNS ZENG ZENS JBN ZN ZN ZENG ZENS ZENS ZENS ZENS ZENS ZEN: ZN: ZN: ZN: ZN: ZN: 
5 7BNS ZENG JENS ZENS ZENG ZENG ZENS ZENS ZENS ZENG ZENS ZENS ZENS ZENS ZENS ZEN: ZN ZN: 
5 7N: JN: JBNG ZJBNG JBN ZENG ZENS ZING JBN ZN ZINN ZN ZAIN: ZN ZN ZB: ZN ZI: 


; #THE TESTS WILL on EXCUTED USING a awe THESE 
;#IMPLIED SEEKS WILL BE ORMED 
“FT SECTOR “FS” OF THE DESIRED Cy CYLINDER. 


ng 00 GR ul Beg Subs TRY Bye EHC TER 


HAD TARY TABS TERS TERS TERN TERN TERS TERS TERN TERS TERS TERN TERS TEAS TERN TERN TERS | 
573 NZS NI 5 NBR 5 NZ 5 NZ 5 NZ 5 NZ 2 NZ 5 NZ NZ NZ 5 NZS NZ NZ NZ NBS NBS NE 
972 NMS NZS NA SNRs NZ NZ NZ 5 NZ NZ NZ 2 NB 5 NZ 5 NR 5 NZ NR NB NBS NE 


Cg megan SY oy genet ne orersine qcpmepernp ene eeneet: 


TEST 0 RECAL/ 


SEQ 0071 


RMO3 EXTENDED DRIVE TEST 
22-JUL-77 14:59 
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TO RECAL/SEEK TEST 


# THIS wer WI oer DRIVE TO EXECUTE A RECAL IBRATE 
+H SRD US INDICRTIONS ARE. 
te aay Conmeige Siar 


cs SESE SE-SE-SE-SE-SE SEE EE SE SE SS ES SS SS HS HE 


téTo 


NOP 
BIT Q4B1TS+<0%2>, TSTNNS ;D0 THIS TEST? 
Fos ° Tl ES“ 70 THE NEXT TEs T 
64S: MOV ‘a. 3aSTSTNM it hese ie @ 
ISR PC LO LOOPRN can fee 1 on THe tes SI. 
HOY Lo oer in NTO THE THE SBISPLAY REGISTER 
MOV at Tht SOISeLAY ere tre TERATION ASS LNT 
MOVB TERN ALLOWED FOR TEST 
a a a ar ae IF SWi2 IS SET 
BIT 8SW12, aSWR ;CHECK FOR SWITCH ie al pnt iis 
sie $8 aus RO He OPE THE NUMBER 
BIC #177000, RO :MASK’ OUT THE filGh ORD ORDER BYTE 
TYPE SCRLF 
RO, -(SP) 3: SOVE RO Fi g TYPEOUT 
TYPOS ::G0 TYPE--OCT AL ASCII 
.BYTE 2 *: TYPE 2 DIGIT(S) 
"BYTE OO ::SUPPRESS LEADING ZEROS 
TYPE ,SCRLF 
20S: 
MOVB SRECAL,@ Ate ; RECAL=COMMAND 


ei 
MOV Lc OPS Bele GLC ant 
mY HELIR oe S08 FBT ERE 
TESTO: MOV aS :SET UP STACK POINTER 
JSR echil.A :GO EXECUT THE COMMAND 
EXITO: debpe eaten *L 


+ RES GRASA ERASERS RA REESE EKER RRR ERE AREER ERR RE EERE RE REA ER ER REESE 
t ETEST 1 SEEK/SEEK TEST 


THIS TEST WILL oe THE DRIVE TO wart A FORWARD SEEK 
CY “LS” FOLLOWED BY A REVERSE SEEK CYCLE TO 


i 
INDICATORS’ ARE EXAMINED . 
*LC* WILL DEFAULT TO 128 AND "FC", "FT", “LT”, “FS”, AND “LS” 
WILL DEFAULT TO O 


5p RRR RERERER EEE EEE EERE REESE EERE EEE RE REEL ERE EE EERE EEE 


, 
. 
3 
Lm 
= 
33> 
m 
3B 
3 


? 
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Pll 2@2-JUL-77 14:59 Tl SEEK/SEEK SEQ 0073 





pppeennenennaemneeE | 


A 
- 


TSTl: 
NOP 
itd QagrTse<1se>, TST 09 TNs TEST? 
STe2 3NO--GO TO THE NEXT TEST 
64S: MOV #1, d8STSTNM >SET UP TEST NUMBER AND 
*CLEAR THE ERROR FLAG ( ) 
025610 JSR PC, LOOPRM *LOAD THE PARME TERS FOR THE TEST 
1 76 001110 MOV STEST1, J#SLPERR 565 TUP TOO ON SERROR ADDRESS 
ot 0011 esse HOV STSTN SO ISPLAY *LOAD THE rest Ww eaont THE DISPLAY REGISTER 
01303 1 001115 MOVB fg h ih. it ie ode A bee OR TEST 
-THIS IS A MACRO TO TYPE OUT THE TEST BEING EXECUTED IF SW12 IS SET 
010000 172326 BIT 8SW12, JSWR ;CHECK FOR SWITCH 12 SET 
ath 3 20 TF = 0, THEN DON’T TYPE TEST NUMBER 
OL 1102 MOV STSTNARO "ELSE, THE NUMBER 
V7 BIC #1 MASK OUT HIGH ORDER BYTE 
109401 001215 TYPE 
010046 MOV RO, -(SP) 31 SAVE RO FOR TYPEOUT 
1 T --OCTAL ASCII 
oes * 2 + pe 2 DIGIT(S) 
>08¢ 000 ‘BYTE : SUPPRESS LEADING ZEROS 
k 104401 001215 TYPE , SCRLF 
20S: 
at 1 oF , . +1 °F 
113535 Spiess Bovtes MOVE «Sm e"SeppB-esip iL 
{13737 boleee bodtee Vg eT ee ett itt 
1 151 nity MOV oad Spee sie “FC 
t be Ob ibes Soy ee aero bags 160 TO EXITI ON ERROR 
1 722 rabies MOV seaTL SE PAOR *SETUP LOOP ADDRESS 
11 TEST1: MOV aSTACK: SP SET THE STACK POINTER 
JSR RO, SCALL GO EXECUTE THE COMMAND 
: 





a A : R 
pores. 026144 exrTis a @sCALL.B i PB oprecuTe THE COMMAND 


5 5 HEE AE AEE SEE SE EE J SE a a a a a a HE 
:&TEST 2 INCREMENT/SEEK TEST 


THI MK FORWARD, SEEK CYCLES TO ADVANCE THE 
cYL FROM “FC” TO “LC* BY THE INCREMENT “IC™. 
"LC" MINITIATED; STARTING 

A THE LAST LEGAL SNE AND DEOREMENTINE By “IC™ 

UNTIL “NC IS i.£SS THAN “FC. AT THE COMPLETION OF EACH 
SEEK T INDICATORS ARE EXAMINED TO 

E TION. 


o> Se-SES SE Se aE 3 Se ae aE 0 0 a a a a a a a a Ha aE 


006740 tét2 
Boer O39r37 Nor 
74 737 001430 001234 BIT QeBITS+<2%2>,TSTNMS ;DO THIS TEST? 


rorrnmrvmnmnMmnnnvnmMn 
ob 0b bb 8 0 0 0 0 8 
SSSVFRE SUS 

Wee We Be Be Be Be De Be 


Ben te be 
wre 


hi 
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Be ee iiss Haey dd SOS eRENT SEEK TEST : SEQ 0074 


i 


NOU 


i bee ee 


ee ee eee ee ne ee nn Be a ee te ee ee ee ee ee en ee be ee ee ee 


SSO UEREG-SLSEVERLOR-ESSVFHESO-~SSBVRRESRESBBRRRPGV Bsa 


rererururerorurororororurorornororurororone  orururorororororu Pururororerurururururorurururu rorururorerurorororuru 


TST3 e ois 
64S: ypu 
Fon e fEST. 


MPEER INTO THE THE “DISPLAY REGISTER 


bes a 3 
te 
cee 
fe 


Sires ier ait oa Wet ace cee 


ggg FR, THEN Dow TYPe TEST NuMBER 


4 





007030 O01 MOV STSTNM.RO TYPE THE NUMBER 
42700 BIC #177000, RO ARS OUT THE HIGH ORDER BYTE 
i 1 001215 YPE 
10046 MOV ,- (SP) $3 RO FOR TYPEOUT 
i TE NUMBER 
00704 104403 TYPOS TYPE--OCTAL ASCII 
BYTE Q :iG0.T 2 DIGIT(S) 
i 500 * BYTE ::SUPPRESS LEADING ZEROS 
104401 001215 TYPE ,SCRLF 
20S: 
007056 012737 007064 001106 MOV #1$, SLPADR ;SETUP LOOP ADDRESS 
11 1524 004134 1S MOVE a#FS,a8DPB.8+10 ;FS 
1 I 138 MOVE aaFT “B+ll 3FT 
1 1 1 1 MOV sexit ?GO TO EXIT2 ON ERROR 
1 1 151 136 TEST2: MOV oar -B+l2 :FC 
114 01 ia 001110 MOV #. .SLPERR SETUP THE ERROR LOOP ADDRESS 
} 1 il ie MOV aStACK, SP *LOAD THE STACK POINTER 
4y 8 
boris Sian BBs! 004136 iB8 Gite, gebPs. Bez | Tt at ea was 
1 a 1512 004136 cre aaLc “B+le OUT OF CYL OF CYLINDERS? 
1B Fe ose goue = YBN gre.pie 
1 1110 MOV &. -SETUP THE ERROR LOOP ADDRESS 
1 12706 001100 seen MOV STACK, SP LOAD THE STACK POINTER 
1 "JSR RO,@ .B ;GO EXECUTE THE COMMAND 
170 a 1514 004136 SUB Bete se0PA B+! B+12 
an7et5 023737 001510 004136 CMP Sur C, a80PE. “B+le 
te 9ne004 EXIT2: SCOPE ¥LOOP 
“ . 2 pmmengpem ES a Sipvemegetennreatapmemamnasgnimentt 
, ‘ATE STEPPING SEEK TEST 
Pana ame sy 9 Sue Bah 
at OR ee ae ee OER TABTCATORS GRE EXAMINED TO ENSURE PROPER 
% OPERATION. 
Hiebclnlebelalehalalatalalaieistalielallelalaielsisislelaialalalaislaisisllalaisislslalslaisislsielsisiiaislbalsiniaiaiaie 


007214 té13: 
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171 007214 

' 16 001432 001234 

1 

1 

1 

1 





2 bs bh pb Fm a be = Re bh ee eo ee he 





007446 
007446 000240 
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T3 STEPPING SEEK TEST SEQ 0075 
NOP 
ee 98B1TS+<3%2> , TSTNNS ;00 THIS TEST? 
Ss ; 
MOV 83, 28STSTNM : 
; TUR ra) 
JSR sl 
WY OSTSTMASorsecay iC NTO THE DISPLAY REGISTER 
MOV start IMES fant ater 
MOVB = &2S.., 
- THIS 1 ato TO WHE UT Te Test sce. cre IF SWl2 IS SET 
BIT sSW12, ISWR ; CHECK oF OR SHITCH, 1e SET 
BEQ B08 : it = 0 TYPE TEST NUMBER 
MOV RO SE, NUMBER 
BIC #177000, RO MASK OUT HIGH ORDER BYTE 
TYPE aScrLe 
MOV ,-(SP) fe) Aeon RO FOR TYPEOUT 
VTE sO VEE pierre) 
-BYTE +i TP 2 DIG + age 
TYPE ,SCRLF 
20S: 
MOV sis ;SETUP TEST LOOP ADDRESS 
1S: MOVB = a aFS ; 
MOVB 86 @aFT : 
MOV BEX GO TO BYPASS ON ERROR 
TEST3: MOV oar *FC 
Moy Stack SP SP er stace POINTER 
ISR RG, aeCALL B eo peciTe 
a ser THe OOP ADDRESS 
MOV Set inK op tPA THe cfhee INTER 
1S: MOV R1,as0PB.8+12  ;DESIRED CYLINDER 
ISR RO, a#CALL.B *G0 
Ri : YLINDER 
CMP R1,98Lc * DONE? 
BLE 1§ :NO--LOOP 
EXIT3: SCOPE 
jeer qe OSCILLATING SEEK T REPENS LEPLRESRARRSL EERE SALES ERLE 
‘ATES OSCILLATING SEEK TEST 
3% THIS TEST WI SEEK FROM "FC" TO “NC™ AND BACK 
* i TO "Fc". * TRRTS AT. Fc INCREMENTS BY C* UP TO CYLINDER 
* "LC". THEN Is BY “I Berk 10.¢ TO CYLI “FC”. aT THE 
1 COMPLETION Fee eat PROPER INDICATORS ARE 
* EXAMINED TO OPERA Ion 


s RELRELELRRR ERE A EERE SESSLER EERE EERE EERE REESE ERE EE EERE 


+éT4 





LO6 
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OZRMFA.P11 22-JUL-77 14:59 T4 LLATING SEEK TES 


001434 001234 BIT O8B1TS+<4#2>, TSTNMS ;D0 THIS TEST? 


CHE cose ws: Pe fatSesrsmn | Test 
“a at ae On TE TEST 


Baa8y 2 
we 
S 

















1110 5 Se TUP THE L90r ON BRROR ROORE 
ise , i204 aeRPT STIMES ito eS ERAT On tia “brs _ 
1 petite 825., + MAX Ee ode Le FOR TEST 
-THIS IS A TO TYPE T BEI IF SW12 IS SET 
010000 171404 BIT l2, HECK FoR Su feH 2 
BY Enemies tt he reen: TST MUR 
seape BIC 137000 RO : roll" he firth ORDER BYTE 
001215 TYPE 
MOV RO, -(SP) ;;SAVE RO FOR TYPEOUT 
T He TAL ASCII 
VE 2 2 DIGIT(S) 
-BYTE 0 He ING 
001215 TYPE  ,SCRLF 
20S: 
0755 001106 MOV 81S, SLPAOR SETUP LOOP ADDRESS 
! ped bow 34 1S MOVB guts, -B+10 5F 
i 1516 1 MOVB Q80PB.B+11 3F 
i 1 001252 MOV sexIt4, a GO TO EXITY ON ERROR 
x CLR Re CLEAR STALL SWITCH (NO STALL) 
K 010000 001220 BIT 8SW12,08C.SWR  ;STALL REQUIRED? 
3 JED et 
3 : SWITCH 
260 OF 1§10 TEST4: MOV gure Ri ise NC TO Fi 
61 O aac CLR aes : START aT F STALLS REQUIRED 
obs | (OF 1 Hoy aStACk, SP tPA THe STACK PHINTER 
07651 poe tan 54 TO eee eele ine EXECUTE THE COMMAND 
: a nc 
07666 004037 027364 JSR RO SASTALL *YES-GO TO STALL ROUTINE 
If 00133 .WORD STALL *TIME POINTER 
) 001510 004136 2s MOV FC,a80P8.B+12 ; 
2 004037 026144 ISR RO, a8CALL.B GO EXECUTE THE COMMAND 
f 00S70¢ TST R2 : STALL? 
: 001413 BEG 3$ ;NO- 
104037 027364 ISR RO, J8STALL *YES--GO TO STALL ROUTINE 
.WORD  STALLO TIME PO 
001336 INC #STALLO : TE IME 
He @ 001362 001336 CHP eaiXxsT »aesTALLo -TIME TO BIG? 
2276 1 CLR TALLO : TART AT 
cs Birr any ome =, ER Bier Nee aT OVER 
328! por 020137 001512 CMP R1, aeLC *LAST CYLINDER COMPLETED? 
BLE 1S :NO--BRANCH 
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OZRNFA.P11 





1 

i 

ie G3a737 001436 001234 

1o1od O0013? 010330 

ibe 012737 001102 
3 101 10 
e3e8 0101 1 10240 001110 
me RIE blir, BINGE bolt 
* 10144 11 1 Sotite 

ate 010000 170760 
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OSCILLATING SEEK TEST 


Hoy aac RL SET NC TO LC ce 
f 
ie THe stack ER ESS 

4g: Bey BEC : 

JR oe $90 EXECUTE THE COMMAND 

Q 

ISR RO @eSTALL TO STALL ROUTINE 

. WORD : ie INTER 
SS: MOV #LC, 980PB.B+12 ; 

JSR RO, A&CALL.B ig? EXECUTE THE COMMAND 

Q 

ISR @sSTALL iYES--G0 TO STALL ROUTINE 

. WORD STALLO POINTER 

INC #STALLO TE STALL TIME 

cH fest actash" -TIME TOO BIG? 

CLR @sSTALLO ae wee TALL TIME BACK TO ZERO 
6S: SUB asIC,R1 iNEXT CYLINDER 

CMP RL abc : DONE 
EXIT4: Ng ann 
$ oSRAAR SERRE UP EKEKHLHEAELERSSRERERES LKR ECHR ELK RH ELL RHAHRERKS 
:KTEST 5 CONVERGING/DIVERGING SEEK TEST 


We Me ah RC abe Oe 


THIS TEST WILL CAUSE THE DRIVE TO EXECUTE F 


sa AND ” NE Mel "att cl” _ 
abit 


; sgeeeeensensenseneenseneusoasesssastaneeneenean 


64S: 


NOP 

BIT : ectiee TSTMS 7. THIS TEST? 

IMP ST ae 

MOV Hy #STSTNM ier 

JSR PC, LOOPRM rr eae Test 

MOV STESTS, @8SLPERR hea 

HOV ! 901 Y ATO THE THE SBISPLaY REGISTER 
tag te: ibe! TEST 

vient ten CUTED IF SWl2 IS SET 

ea PRL BOSE Psa esr nec 
STSTNM,. RO 

Bic #177000, RO iEL SE ot’ a: HIGH SH ORDER BYTE 


SEQ 0077 
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Thy 010176 01004 
1 
1 104401 001215 
10210 
010210 010216 001106 
Fins: et: 
iF bere Bile 
ae ile 
7 001110 
£5 10, ll 
£5; 1 199 
1 144 
£; Y 136 
et f af 
+ 1814 
: i f 1514 
15l2 
1 003003 
" ot x. Bhosee 001510 
= 1 
7 





. Ty CO 


tote 


aToets 


x 
~k 
> 
pS 
+ 
x: 
? 
x 
x 
a 
x 
+ 
x 
a 
x 
. 
x 
+ 
x 
+ 
kr: 
+ 
>2¢ 
> 
326 
+ 
22C 
> 
ki: 
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TS CONVERGING/DIVERGING SEEK TEST 


MOV RO, -(SP) RO FOR TYPEOUT 
TAL ASCII 
WIE 2 Freee oiGiT« (pe 
BYTE O ;; SUPPRE 
TYPE  ,SCRLF 
20S: 
. MOV 81S, SLPAOR ;SETUP LOOP ADDRESS 
Nove apie a ify 
MOV s€xItS, a GO TO EXITS 
TESTS: MOV aeFc,R ‘START NC1 AT FC 
MOV aa : START Ne AT LC 
MOV 8. : ERROR LOOP ADDRESS 
MOV ast iLORD THE STACK POINTER 
1S: MOV Ri, -Bt12 NCI 
ISR , .B GO EXECUTE THE COMMAND 
MOV Re, -B+12 3NC2 
JSR 8 GO EXECUTE THE COMMAND 
an ee NEXT. NC2 
ae OR Sire iene? 
BGT exits : YES--BRANCH 
Oar 3? 
1 ;NO--BRANCH 
EXITS: SCOPE *LOOP 


3 JGUHHNHHHHHIHHEHHHHHHHHHHHHHHHHHIHHHIHINHHHHHIEHHHIEEEEHEEE at 
i ATEST 6 SERVO ADDRESSING LOGIC NOISE GENERATOR 


EEN NRCS. THEN He+2 THEN NC#®. THEN Nets. Rod *Nc*_IS UPDATED 
1 BY “IC” AND nee Tin olthice is REPEATED Gl DNITE "Lc" IS 

i THE INITIAL VALUE OF “NC” 

Hs 
# 


TeoEe noha EEO, FRESERS GREENE arron 


Oe SE Se 36-36-06 96-6 SE HE AE AMES SS aE a ab 0S Sa a a 


téte: 


Sai QeB1TS+<6%2>, TSTNMS ;DO THIS TEST? 
SORT? Mars, TEST | 
64S: MOV , OeSTSTNM Heer OP Test Tureen an - 
JSR : re Pr : FERS FOR THE TEST 
NOY OST ic: me GREER INTO THE DISPLAY REGISTER 
MOV asRPT eo : TION 
MOVE = 825. : ALL OR TEST 
THIS IS A MACRO TO TYPE QUT THE Reauifen fersey eee Sue 1S Set 
er een itr aoe, WEN pon t< TYPE TEST NUMBER 
MOV TNM, RO ELSE, OF ee SON AE NUMBER 


SEQ 0078 





Ob = Fb Fh hh mee 


OOOOOOCOOoOo0ooO 
Peas bh eo be bet fe pe Qe Gee fm Bee Bee 


Se ee 





SetuL 


3s 


sel 


_ 


O440 


—_ 


Dt han Be bee be ee 


aa 


= 


= 
A 
= 
- 


3 


. 


a 


000137 
012737 


8 
3 


DRIVE TEST 


-77 14:59 


177000 
001215 


001215 


104S4 
oat 
oloes 
sae 
Gite 


1% 
144 


001442 
011250 
000007 


025610 


001234 


001102 


B07 
RACY LL SOT AWO ROORESSIAG LoGte NOISE GENERATOR 


SEQ 0079 
BIC #177000, RO ;MASK OUT THE HIGH ORDER BYTE 
nov F ,~ (SP) 3 SAVE RO FOR TYPEOUT 
TYPOS +3 TAL ASCII 
-BY 2 $3 2 DIGIT(S) 
-BYTE 0O ;; SUPPRESS LEADING 
TYPE ,SCRLF 
20S: 
1S nOvB Hs F] B+10 ipeTUP =e aeagmmes 
; MOVB gare, 900re.Bt10 iF 
MOV s€XI SSBYPASS 560 10 EXITS ON ERROR 
TEST6: MOV aaFC, Rl *PICKUP “FC” 
MOV aaLc *FORM LAST CYLINDER THAT 
SUB 85, Re 1S AVAILABLE FOR TESTING 
MOV 8. : THE LOOP ADDRESS 
MOV astack, SP *LOAD THE cFack POINTER 
1S: CMP Ri ;LAST CYLINDER 
BGT tT : YES--BRANCH . 
MOV Ri, .B+12 NC 
JSR : 8 GO EXECUTE THE COMMAND 
ADD a4; -B+12 9 SNC+4 
ISR RO, @@CALL.B GO EXECUTE THE COMMAND 
SUB 83, -B+12 3NC+ 
JSR RQ, .B ?GO EXECUTE THE COMMAND 
JSR RO, gecALl 8 GO EXECUTE THE COMMAND 
SUB #1, -B412 3NC+ 
JSR RO, SeCALL 8 560 EXECUTE THE COMMAND 
i: £39 oee ee $00 EXECUTE THE COMMAND 
ADD asic, Ri 
BR 1S 
EXIT&: SCOPE ;LOOP 
gs EREXREMELK SRK ESAS ES RR RLS KER ESE REM ELE ELK RE ERE RK LK RRS HEE LEER KE 
TEST 7 RANDOM SEEK TEST 
5% THIS TEST ORMS RANDOM TIONS BETWEEN CYLINDERS ’FC’ 
is TUG? ACTER EACH SEEK THe. Posi TION OF THE DRIVE IS VERIFIED BY 
i ro ee ROM THe CURRENTLY ADORE SSED iM; wr VERIFICAT HON 
* OF POSITIONING OCCURS USING EACH HEAD. SSES ARE INCREMENTED 
1 BETWEEN PARAMTERS ’FT’ AND LT’. 
; pears tare Pap geting a= PRES PCE ENN Pa: 
“NOP 
BIT Q8B1TS+<7%2> , TS ;00 THIS TEST? 
BNE ong WES CORANCH 
IMP TSTIO iN TO THE TEST 
64S: MOV 87, J8STSTNM : 
CLEAR THE ERROR (SERFLG) 
ISR PC, LODPRM ;LOAD THE PARMETERS FOR THE TEST 





CO? 
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of 


TEST BEING EXECUTED IF SWl2 IS SET 
OR SWI ¥ 
a TEST NUMBER 
NUMBER 
HIGH ORDER BYTE 


eck F 


et A allt REGISTER 
Tes 
MeN 


ae 


;THIS IS A MACRO TO TYPE 


i 
ey 


ond od oH 
oo00 


sSW12, ISHR 
TNA 
,-(SP) 
, SCRLF 


BIT 

BEQ 

MOV 

BIC 

TYPE 

MOV 

TYPOS 
BYTE 
BYTE O 

TYPE 


on) om 
eg Og og od ag OE ond wd ed ted eG wen od eg ed RY RY ed ed wa ed eg ed a Od ad et ed dd eg it 
20009 98OOO0000000000000000000000000000000coO 


ERE RARE REC 


=> 


TOR? 
THE SECTOR ADDRESS 


ARTING TRACK ADDRESS 
; REMAI TO THE INITIAL CYLINDER 
iDTScARS THE QUOTENT 
;COPY NEW CYLINDER ADDRESS 


Zu, & S308 ‘, 
steer Putate iS. pshSetia iat 
32 a & Zo 25 
- 5 z ae r 
Hiei fs otipee 
Stee De eee 
t SPOOR PRT GUS UE SOe EEA wanes 


SESDERDDRGMDTOMNEDS BansScardenesees 


_ 
i 4 re 
488 98 sy 43 929 
ames — «<9 — «4 _ 
288 ga Bs 2a 88 
88 88 8 8 
TwOuUQoo wu orm w = 
Gespeccme go a age 8 SBH8s cS 
88 3 as 3 


SSS Taps Sse 


RUS LCES SENET UTS SRRER AN SERANS PRRASUS 


ed ed eed nd eG ad ed a OR a dd ed ed dd ad Od eg et dd Ht 


OReRRtTREReeneReanR ARERR A AUC 
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OZRNFA.P11 22-JUL-77 14:59 17 RANDOM SEEK TEST SEQ 0081 


es07 011172 005216 INC (SP) ; INCREMENT IT 
004 ha cated at ADDRESS TOO LARGE ? 


20) ct aris 35 i: F ROORESS IS 2 GREATER 

iT 004174 cLRB pTADPB+10 an SECTOR ADORESS 0 
MOVE 81,DTADPB+10 =; ADORESS TO SECTOR 1 
rea DPReSIT ifncRereNT THe He TRACK ADDRESS 
CMPB 40 s«OOP#B. B+11,LT 


001516 004135 ROVE ,OPB.B+11 EL Mer TRACK ADDRESS 
EXIT7: SCOPE 


fae Soe 
8 
; 


= be pe pe pe = 
WOonow £ 
oooo0oo0o00o 


; 8 ee gene eo grea ree cenmieeance oneness 
ATE SERVO SETTLE DOWN TEST 


Deo Sett Me TUS whee Seineae Ret ad nace 


ihisich 

ty , FC’) AT ) a. 
Ry + Gale For aT Tie COPPLET Sun | Pisin ges. 

’ Aci? HAS BEEN I BEYOND ’LC’. 
LIEN Te tee READS THE DRIVE’S LOOK-AHEAD 
PostTION mi x TO ingte a ai RREee ob wien SECTOR yt. INTO 
ITI ISSUES A WRITE HEADER AND DATA COMMAND 
FOR Tie SECTOR TEST INDICATE THAT THE SERVO SYSIEM MAY NOT BE ADJUSTED 


neat ak UE EE ct One OR THAT A PACK WITH 
ST RLGRO-SECOOs BFTER SEEK’ bo TION US STARTED BT dhe A A FEW 


TIME DEPENDENT: PARAMET QUENTLY ENOUGH WITHIN THE THE REQUIRED 
RANGE TO PERMIT THIS Test 96°be BE EFFECTIVE. 


6-36-36 6-36-06 36-06 EE A a aE 9 3 SE SS a bb 


téT10: 


001444 001234 By cal Tore ipo THIS TEST? 


le4le JMP 12 test TO THE REE A 
10 001102 64S: MOV tio, desTSTi : T 


isis puny Hei arerer’ (5s eer ee eee 


001506 001204 MOV aeRPT STIHeS GET ino THe ITERATION 
000031 001115 MOVB 825. , SERMAX ;MAX ERRORS COON Test 


;THIS IS A MACRO TO TYPE OUT THE TEST BEING EXECUTED IF SwWl2 IS SET 
010000 167602 BIT sSWl2,aSWR eee FOR SWITCH le SET 
001413 20s ;IF , THEN DON’T TYPE TEST NUMBER 


ooo 2 2 Oe 8 eee eS ES OEE ES FS 


Ooo0eo e0O0o0o0O 
fs b= f= be pb bh he 
peat Pan Ben Bs ee fee bs Be he bee Re 


a ae eae AA aE Cael 


S83 RIRES FRENZS 


oo 
aa 
pon be 


Sal * RESP A AUR TAA lt 


BYTE 


;;G0 TYPE--OCTAL ASCII 
IGIT(S) 


i705 Newer ne 
{| SUPPRESS 


STSTNM, RO 
,RO 
RO, -(SP) 


LEADING ZEROS 


012737 011374 001106 


: 
! 
+. 3 
L: 


ee 
A 
= 


THE RH70 
QUEUES 


ee 
e EX T 

iPbaD THe 

SET PRIORITY TO 7 


T 
LOOP ADDRESS 
ACK POINTER 


$SEE MICH CLOCK ON SYSTEM 
OPERATION TO COMPLETE 


T 
FOR 


F fe vet CLOCK 
ve OCK VECTOR 
CTOR ADORESS 
VECTOR 
Nata CTOR 
- INIT Bre 
RESELECT DRIVE 
; CYLINDER 
I 
THE ORIVE FI 
HAS 
THE 
HANGE PRIORITY TO MAX 


‘& 
Steer 
‘Has 
*BR IF I 
*WAIT 
CONT TINE 
;ERROR ? 


j 





a sath 


ac i_— ries | 


fo AF oe 


at. 
) 

£3 (RY) 

Mesh RY) 

, RAOC(RM 
CYL.DS 
1(R4) 

, RMDS(R4) 


puts Fase oon ei 


BREEN RRE gs eg @ = 
SbaReasR8 3 J : &: 
SE oe eis 
Siaaaseee a B aa & Sas S 


Satie 
ss SSSSS SSRN : sopra 
oe Ieee Ieee Ione: Rane Been -—?t 
==2000000 ooS Paratafatata petal a) Oo 


UML Be er eek SSS citer thie aUii UN IMC ietew ie RU EIR IN 


- 
So 
Son eee ae en on how bom kom hon} i RR LU UU ER 
ee at eng ose ot oad ea I hd eh ed dd dg a ed eg eg ee et ed ed a a ed Od ee 
28000 80000 990000009000000000000000000000000000000000000 


Rie See Le esas qaqa cL eeneee ener ee tni 
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SERVO SETTLE DOWN TEST 


T10 
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OZRMFA.P11 


z 
pee 6 
es) 
of wetag 
Re em oe 
Goedeus 


TST1OA: 





T COON SS STE STACK 
MAXIMUM ADDRESS 








: : 
# 
iB a : g . & . - : 
Lia Ee 17 ct SAE 
Pd Pe ee 
eo Pa a 
see iets Blots eee 
cciiciaie Wee Seon 
o Ge soptegege s 
Ga oo be 
Shs Peek 


po. 


SoYasaseees 


Rl 
$1 
Ri 


004174 3$ 
4§ 
000000 
035426 
035356 
035460 
000000 
001750 SS: 
1 
Sle 
1350 
1350 
1350 


tints 


ed ee 


- 
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DZRMFA.P11  22-JUL-77 14:59 T10 SERVO SETTLE DOWN TES SEQ 0084 

01 101003 BHI ;BR IF IT IS 

15 oo1sso es, «= eC ita te NEXT see 

1 001512 CMP Fe,LC i= Pat AND ENDING CYLINDERS THE SAME ? 
1 BNE 

r IMP T10 ier, 

1 OO4116 7S: HOV NCI A+12 NOER ADDR ADDRESS ae 

‘ i eo ae DIVIDEND 

t abe DET TA, -(SP) Doo VI 

i 135 be tory tOIVI 

i AOD (SP) +, DPB.A+12 $000 REMAINDER TO THE INITIAL CYLINDER 
- 004176 CH Ope. .A+12, DTADPB+! ae cy SELECTED AS LAST TIME ? 
! 004176 HOY DPB.A+12, ,ptaope+i2 if aT ies NEW CYLINDER ADDRESS 

i P TST10B: DEC eerie a THE SEEK TIMER 

1 BNE 1$ i oe sCONT F NOT DONE 

1 JSR Bp Sad : REGISTERS 

1 ERROR 24’ i FIN DURING SEEK 

coon Be RET ALTA BE 

1 ooo000 MOV Ri Se a(SP) *RESTORE THE CLOCK VECTOR ADDRESS 

1 BR Ex1T10 "ABORT THE TEST 

1 1$: RTI * RETURN 

1 EXIT10: SCOPE LOOP ? 

5 5 RERRERREAE REARS AREA EERE SEES EEE EERE EERE EERE EERE EERE RRE EERE 
‘&TEST 11 ALL SEEKS TEST 


ON eT er aene per THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 


SSOUSSSDSBRS 


epee ut CYLINDER °FC* THE TEST, SEEKS TO EACH CYLINDER 
1S I FARO THE TEST Seeks BE IND 
Se AND ALI CYLINDERS. EEN EC’ AND LC). THE SEQUE 
CONTINUES UNTIL ALL CYLI 


+s LELEREEEEE LE AAEALRALL ELE SELES ERA RLAE ALLELE LEER SERA RLLA ELSE SEES 


téT11 


Sz 


WOnoulcu) 


RISRARISA) 


012412 
bt Satg ee 001446 001234 Bre DeBITS+<11%2>, Ts" IS TEST? 
ere Oi Size obi ode ee Tes Bran 
12424 000137 012670 IMP O_THE NEXT TEST 
ees 012430 012737 O00011 001102 64S: MOV th 16 sTsTIn ae est BND AFLG) 
01243 00473? 02sb10 shat JSR 0P mi ML THE PRR TERS FOR THE fest 
ees seats 6 1102 166464 MOV Heh eR oe et ae ORE THE DISPLAY REGISTER 
2729 O1e4S6 013737 001506 001204 MOV 
2730 Ole464 112737 001115 MOVB er Stree coy THe ITER A LORED Sl TEST 


HO? 
22-JUL-77 16:19 PAGE 53 


ALL SEEKS TEST 


ui 


SEQ 0085 


1 30(1046) 


Til 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY] 
22-JUL-77 14:59 


DZRMFA.P11 


HIGH ORDER BYTE 
ING ZEROS 


T(S) 


THE NUMBER 


out he 
;SAVE RO FOR TYPEOUT 


OR TYPE OCTAL ASCII 


OF MEN GoW 4°r9PE test nunBeR 


oO 


CK 
IP = 
ELSE 
MASK 


IS IS A MACRO TO TYPE OUT THE TEST BEING EXECUTED IF SWi2 IS SET 


z 
a 
Oo 
rd 
bad 
3B 
oe 
3 aoe * 
—OTmw ta) 
o ed ween) a 
oa 88 Sg 
— 
= z8 
ooo ot 


: 
ited & 


et oad oe) ed 


tte 








POINTER 


oF votes 
CUTE THE COMMAND 


=: 
: 


;SETUP THE LOOP ADDRESS 
; STARTING vee ADDRESS 


E 
> 
se 
ae 
stg 
4 


: 
9 S2=25 
SER E& SOM witng 
SHEEEEDG agttatesas 
re ae — 
Sadtee J362 S88 
APEEREERY S205 EEE 
Sere eee gesuasce 
. 
SESEEEEEE OF BPSRUDeRNG 
é Bex 5 
SARMURRY = RRR 
Saekkb8s 88 888 
iiiiotntat fee a 


sssssssss 


SESESSSSs 


Ed GY RY ed ed ed 
On O000 


— 
ee re 


hd Od eg ag gd et 


RE RSESERERRRSRRRRORNGRM OMENS Nee 


54 


me 


EReEseGeasoesees 


— Fo 


OSES 
en ee ne 
OD NCU 


ard 
f 
“A RMO3 EXTENDED DRIVE TEST re 30(1046) 22-JUL-77 16:19 PAGE S4 
22-JUL-77 14:59 ALL SEEKS TEST 


.SBTTL ##% TIMING TESTS ### 


ZHENG ZENS ZENG ZENS JBN ZENS ZENS ZENS ZENS ZENS ZENS ZENS ZENS ZENS JENS ZEN JENS JIN: 
3/4: JNS ZENG ZENS ZENS ZENS ZAIN ZANS ZING ZENS ZING ZING ZANE ZN ZAIN ZENS JEN ZING 
3/4N: JN: JING JING ZENS ZENG ZING ZAIN ZING ZANS ZENS ZN: ZENS ZING ZEN ZAIN: ZENS ZING 


; #THE fe LL FUNCTIONS BEING 


apie wl pt ay GLERAIWES 5 SPECIFIED IN THE “RMO3 


aT a ae WILL BE ORMED USING EXPLICIT SEEK 
TS at ION OF OF TIMING 
TS 
sea, 


afte MAXIMUM AND TIMES WILL BE 
FEARS LARS LARS TADS ARS ARS ARS AR ARS AR SARS ARS TARAS A RADARS ADSI 
HEN EN EN AN AN AN ARAN ARCATA AEA 
5/2 NR/2 NH/ 2 NZ SNR EZ SZ SIZ EZ EZ ERE 2 EZ RZ REZ EZ RZ EZ 2 EZ ME 


5p RRRRREE ME He HE HE HE HE HE HE HEH HE HE HE HE HE HE He HE SE HH HH a HE 
:&TEST 12 ROTATIONAL SPEED TIMING TEST 

% THIS oS WILL START A SEARCH TO CYLINDER 0, TRACK O 

i dof miaaee ine Sitti andy 
i ere RE IS 

i ENSURE IT 18 PALTHIN | TOLERANCE: 

+i 1:69 MEVREV + OR - = er 1p touz 


sefassannceeeeeeesssasaaeeeeeeeeesnaasnnnneeeeeeessaaainnee 
S178 coco TE up vos 
bige7e 033737 001450 001234 BIT QaBITS#< 122), TSTHeS s0 THIS TEST? 
1 013464 IMP 1 Sr test TO THE 
sear Wee 000012 001102 64S:  § MOV bie gesTSTNM iSeT UP 
12714 025610 ISR fa a aE Test 
1e7e0 1 012670 001110 MOV eat , @SSLPERR pa THE ERROR L 
i 1 001102 166206 HOV STSTNA fires st Riera NUMBER Rove ss THE DISPLAY REGISTER 
i #RPT TERA 
155a3 1 1 OO1LIS MOVB = #25. A eto en TEST 
-THIS IS A MACRO TO TYPE pe TEST BEING EXECUTED IF SW12 IS SET 
1 036777 010000 166162 BIT 8SW12, ISWR ;CHECK FOR SWI TCH, 2 SET 
1 1413 BEQ 208 ir = 0, THEN DON’T TYPE TEST NUMBER 
1 013700 1102 MOV STSTNM, RO SE, Hype THE NUMBER 
t 04401 001215 Rte | “Beate sHREK’ OUT THE HIGH ORDER BYTE 
1 bioode MOV RO, -(SP) ;;SAVE RO FOR TYPEOUT 
12776 104403 TYPOS ito T TYPE--OCTAL ASCII 
ot 500¢ 02 BYTE 2 :: TYPE 2 DIGIT(S) 











SEQ 0087 


JO? 
22-JUL-77 16:19 PAGE 55 


ATIONAL SPEED TIMING TEST 


) 


1 
T 


Tle 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30( 
22-JUL-77 14:59 


OZRMFA.P11 


2 & Sy Rare : 

=. ed wo ee 
S .fteeen 85 a Se, w 38 
| ae 2) ater pet Bet 
+3, * fi oF hie oa iets . 
: ott eet a 


: 


7 = 5 
a z oeES auf =O 
S d.besgsttaon fates a 


St nytenseaeSepsecgesensssasienat ena besesicngt anes 7 


uu 
_ 
e 
w 
4 


14, RMDS(RY) 
TADPB 

ADPB 
ree 

ioe 


i 


sBIT 
2s 
#0 
PC 
sat 
as0T: 
ROR 17 


or 


225 8 


RMCS2(R4)’ 
, RNC 
(R4) 
cs 
cs 
4,RMDS(RY) ; 
em 
, RMCS2(R4 
Pe, @SCOUNT 


#101 Kes 





120 





MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE S6 


OZRMFA.P11 22-JUL-77 14:59 Tl2 ROTATIONAL SPEED TIMING TEST SEQ 0088 
2879 013332 003304 BGT 18 ;NO-—BRANCH 
8S ; EXIT 
000101 166034 7S: I #101, 9PKCS : 
1 al H ORITY 
MOV ($P)+, RO ;PC OF WA Tre 
Ist é (SP)+ ; THE STACK 
004164 MOV SO TAOPB, R2 ive art POINTER 





Bo684¢ 0010 oo 1 Rete reendine: 


co 
bene fees fee Some feo fan fm fa Ga bop 


ie 3764 OO4164 000010 NOV sar mrs jreseOs ct VE 

i 1 1 or 88 RY) IN Te 

Oe | 

eon i ois Soares 00010 HOV scares LPR 

i ae 022062 nov Arana or Gk ih Tac Tze THe 10 VECTOR 

ated 001220 BIT #SWO6, 28C. SWR Hz? 

1 BNE 9S NO -- BRANCH 

1 030252 ISR RO, aeTYPTIM jG0 TYPE THE TIMES 

Bpevad a BR EXIT12 TO EXIT 

1 030252 3 J RO, 28TYPTIM ;G0 THE TIMES 

Bia4e0 | posbeM i BOINT 

013462 000004 EXIT12: SCOPE *LOOP ? 
2908 $ ijest ig OME CYLINDER HRUESRRSAHLAASER ELLA RE RLS LARK KEEL AEX RE 
5203 ‘ETE ONE CYLINDER SEEK TIMING TEST 


nas TEST WILL Cree fe Bag SEEK ee TO OS tant 


THE 
YLINDER . Tes UNTI HAN THE 
kan ph es "FC’. THE 
IT noes” NOT 

Mie gg ga FOR A ONE CYLINDER SEEK. © 
eT TIME MUST BE LESS THAN 


Se SE 36-36-06 06 96 06 A a HS SE SE aH a 


+4113: 


We oe ie oe ie Be 


BSSoBSow 
bat be pt be = bs Be bee 
DONC Cw 


O8BITS+<13%2>, TSTNMS ;D0 THIS TEST? 


: TO THE NEXT TEST 


66 ST14 
000013 001102 64S: $13, 8STSTNM tere uP 
025610 


CALM wenn eMite 


STATI GOTSLAY are eenaend he DISPLAY REGISTER 


#25. , SERMAX ALLOWED FOR TEST 


IS 1S ee SouR TO TYPE Seok For Sua Te Eepren IF SWl2 IS SET 
20s THEN DON’T TYPE TEST NUMBER 


S288y ByR5 


SBRORSa TNA 


4 
B 
pate 


LO? 








MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30(104%6) 22-JUL-77 16:19 PAGE S7 
OZRMFA.P1I1 pine Ig -77 14:59 T13 ONE CYLINDER SEEK TIMING TEST SEQ 0089 
2935 013554 013700 001102 MOV STSTNM, RO ELSE, TYPE THE NUMBER 
t 700 BIC 4 ,RO MASK OUT THE HIGH ORDER BYTE 
i MOV RO, -(SP) ;;SAVE RO FOR TYPEOUT 
o1 TYPOS HH TAL ASCII 
rl .BYTE 2 :: TYPE 2 DIGIT(S) 
1 ‘BYTE O :: SUPPRESS LEADING 
: 001215 TYPE ,SCRLF 
20s: 
01 001244 TST @sCLKSTA ;KW11-P CLOCK? “if 
14166 JMP ST14 iND=g0 ext 
1395 001106 1S: MOV 81S, SLPAOR : THe Li AbBress 
027670 ISR RO, d#SRCHOO idd A MASSBUS INIT. AND RECAL 
14164 IMP EXIT : PE LOOP CALL 
4 2s: MOV ori? ; PARA 
4164 001206 MOV 8EXIT13, SESCAPE ;; To | tig ON ERROR 
99 100 TEST13: MOV asT : 
1510 004176 MOV FC ss Taper ; CIT NG CYLINDER 
INC prAoPe+ le i INRETENT aun No cy NDER 
JSR PC, a&STRTMR : ned 
14060 1654 MOV 87$, aPKV : SUERPLOM 
021610 MOV 8DORTI, IRMVEC s 
1S: CLR sP\g AT ZERO 
176 000034 MOV a8 BOPB+ 12, rect CYLINDER 
1 MOV SEEK, ( 
000131 165446 HOV nai gPKCS 
4 #10 
ces Cs en Ce ee 
BEQ : 5 ; 
164 nov , #0TAOPB : 
2664 JSR PC ; RH70/RMO3 REGISTERS 
900019 MOV 48 (R4)’: 
164 00001 MOV asDTADPB, (RY) ; T DRIVE 
RESREG ' eter 
120 Fx ca , @8COUNT ; THI S TIME 
JSR PC, a8TWOMS *STALL FOR 2 MILL 
mS Boat Bie 
004176 INC aeDTADPB+12 “MOVE TO NEXT CYLINDER 
004176 001512 CMP DeOTADPB+12,LC ;OUT OF CYLINDERS? 
BLT 1S ;NO--GO NEXT 
177777 MOV 4-1, R5 SET UP. ITCH TO DOWN 
Be 004176 4g: BE 1S STADPB+12 : TO CYLINDER 
004176 oo0000 CMP D8OTADPB+12,#0 ;OUT OF CYLINDERS? 
3° BGT 1§ *NO--GO DO THE 
BR GO TO THE EXIT 
000101 165312 7S: BIC #101, aPKCS +}STOP THE CLOCK 








MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST 


OZRMFA.Pil 22-JUL-77 14:59 


wore Qiseo 





OP a: 
14ii9 He 
dats 1 164 
ue ibied 
HH gua7es pong 

i! tuted 025074 

B thin pa 

ey HE Beh 

301 

sold 

3 

14 

ie * 

i 

301 

3021 

3022 

Nes 

Ose BLYiee ooce40 

3026 OIMi7e ite 001454 
His BS aa 
ai fe 
Hise) Glace Bt 
014240 112737 000031 
1 nae 010000 
1 y 
14, 13708 001102 
14 dioods 
ghgrY 


001234 
001102 
mu 

ti 
001115 


164664 


=< 30( 1046) 
T13 CYL 


07 
22-JUL-77 16:19 PAGE SB 


ONE CYLINDER SEEK TIMING TEST SEQ 0090 
CLR ;DROP THE PRIORITY 
MOV ($P}+,RO *PC OF WAIT+2 
Tle | : FROM THE STACK 
MOV SOTADPB, Re DPB PO 
JSR 98S VRH70 : RH70/RMO3 REGISTERS 
MOV et cms)’ oS tee 
MOV ‘ JSOTADPB, RNCS2(R4) ;SELECT DRIVE 
- Raack 20 : of bck ovERFLOM 
? MOV (RY INIT. 
MOV ak THOS a T NAIVE 
JSR SINE IALIZE THE CLOCK 
MOV Ate 1 Gk i RESTORE RH70/RMO3 INT. VECTOR 
JSR RO, akTYPTIM +60 THE TIMES 
EXIT13: Stop E He 
EPESLE RAMS ALSSE LEEK ASSLELHERSK ESA LKABARAKEL MEARE RE ELH KESH ELLA ERE 
i ETEST 14 ACCESS TIME MEASUREMENT TEST 
i THIS TEST W tit COMMAND A FROM CYLINDER 0 10 
Sth torre Fala re 
te er met Bite eaetiet 
ii Pee IS REPEA fren A TOTAL oo eas 
OR Riernor gress | MRnodeS BA 10 ees C10) 
;# FOR AN 
} Sapien teenage ERE in eMart 
* NOP 
BIT QeBITS+<14%2>, TSTNMS ;D0 THIS TEST? 
Fis ST1S TO THE NEXT TEST 
64S: MOV #14, a8STSTNM up TEST NUMBER rt 
ISR ae PARR TERS FOR “fest 
Nov STOTIN SSSLDERR SETUP Te Test OER Si NTO Fue DISPLAY REGISTER 
NOVO SaRPT'sTirece er het 
MOVE #25. , SERMAX ERRORS ALLOWED FOR TEST 
gqHIS 1S Ay naCRO TO ante Beor Fol BEING EXECUTED IF SWi2 IS SET 
BEQ 20S oo: + teh oon 4 1 TVPe TEST NUMBER 
MOV STSTNM, RO ;ELSE, 
BIC #177000, RO she OUT ire He HIGH SH ORDER BYTE 
TYPE SCRLF 
MOV RO, -(SP) $3 RO FOR TYPEOUT 
3; TEST NUMBER 
TYPOS *:G0 TYPE--OCTAL ASCII 
-BYTE 2 :: TYPE 2 DIGIT(S) 





MD-11-DZRMF-A 


OZRMFA.P11 


14277 
14300 














Farre 
+ 





1 


et ht te te A 


a{=}=}=f={=fa{s} 





49 014304 


Blaid 


1 


EXTENDED DRIVE TEST 


RMO3 
22-JUL-77 14:59 


000 
104401 001215 
001244 


Bivaié 001106 
027670 


3 


4 001206 





le 


he 


ee 
4 
? Be 
ABE 


tent fe 
oo 


ao 
ae 
Se raee 


MACY 11 
T14 
20$: 


18: 


2s: 
TEST14: 


NO? 
22-JUL-77 16:19 PAGE 59 
TIME MEASUREMENT TEST 


30( 1046) 
.BYTE 0 ;;SUPPRESS LEADING ZEROS 
TYPE ,SCRLF 
TST aSCLKSTA KW11-P ? 
Bee wae 
WOR B15 S.pr0R A é NIT & RECAL 
BR es iy SRO TURN TERE IF NO ERROR 
MOV ei R3 ; PRTER * 
MOV SEXIT14, SESCAPE ;: TO EXITI4 ON ERROR 
HOY est, REDEAT “pei 36-0" 128 TIMES 
BR, RP obo ems 
Oe 4 See 
HOV sft 1CR4) istaaT & 
Bi, steer on near 
BIC -—«- 8101, @PKCS i toe ies 
BIT SI T14, RMDS(RY) >ERR=1? 
SFUREG + ov 
MOV #OTADPB, Re BeBe POINTER 
JSR PC : RH70/RMO3 REGISTERS 
MOV #BtTOS.RMCS2(R4)’: 
ereg CO B,RACSE(RY) j SELECT ORIVE 
are ue ITCH TO UP 
75h PE, 9ECOUNT ‘TBoate Tre count ‘ 
SR PC’ a8TWOMS i STALL FOR 2 M LLISECONDS 
MOV “ye > BEGINNI INDER 
my Srararmest "feta 

IT ‘ >WAIT ON T 
BIC #101, aPKCS *STOP THE CLOCK 

I agIT14, RROSCRH) +ERR=1? 
SAVREG : SAVE RO RS 
OR ges OVE AL THe 
JSR : RH70/RMO3 REGISTERS 
MOV tT05, RMCS2(R4)': CLEAR 
HOY : O80 TAOPB, RACSE(RY} CT DRIVE 

17 ’ 

MOV #-1,RS sSET SWITCH TO DOWN 
ia, Pc gs WOMS ee FOR 2° RIL LISECONDS 
DEC Ri : DONE? 
BGT 1S . : NO--BRANCH 


SE@ 0091 


BO8 
Soe TT eT egy eee rhe MEASUREMENT fest SEQ 0092 
00101 164536 78: ¥ 
SAVRE 


WWIWWWWW 
ad 
SBIFRZS ; 


et Ft fe Gt bh ee bes Bo b> ee feo P= bes fee Peo bs bet Ps Peo 
5 


ae 
teak 

b 

sue 

gees 
BB55 Gass 
! a ay 
2 oe 
“ 732 
i = 

aR 

: 


go00%2 900010 


ERROR 
000040 000010 MOV 
000010 MOV 


S88 

2 ak 

aR 2 
5 


040320 O20S64 MOV 


eas bas bona bos bos bo Bae Pt be bet bee be en a Ke Fe 

= 
1 3) 
3 
L om] 
=z 

wce 

a3 
4 
fi 


ne 
i 
owes 
e: 
: 
Rm 
- 


IW) GI) GIG) GC) GIG) GIGI WI GIGIGI Ge) 


10 
i 
1 
1 
14 
iS 
16 
17 
i8 
19 
ei 
23 
1 5 7 SHH JHE 
ies TEST 15 MAXIMUM SEEK TIMING TEST 
3127 3% THIS TEST WILL COND A Be ark FROM CYLINDER OT 
3128 * i ae iid ’LC’ WER LC ed *LC’ 10 
3123 : ¢ CHECKED 
313 + 25 cage VTP SEEK 
a1 + cat: eee 
313 ii Bake "10 "Tio ci (10) N FOR RMO3/S’S AND TO 814 dor 
aie = SEGRE RRERGRA AGE GGGG REE EE E EERE R EERE REESE REAR EREREERRRREREEE 
3138 Ot aaus 000240 tenis: NOP 
3139 ive rate 001456 001234 BIT QeBITS+< 15#2>, TSTNS D0 TH IS TEST? 
141 O14 eu 15516 JMP ST16 i NOe-co TO THE NEXT NEXT TEST 
ie 14760 01 eects 001102 64S: #§ MOV 81S,a8STSTNM ;SET UP TEST NUMBER 
aii 14 025610 JSR eke PrereTERS SARE Hr 
145 014 1 014742 001110 MOV Bratie, SESLPERR j 
36 01 1 001102 164134 MOV STSTNA, a0 13 earene® Fue DISPLAY REGISTER 
ue flee ize Gat il rst 
if -THIS IS A TO TYPE IF SWi2 IS SET 
1 15022 01 164110 BIT seule, oo 8d on sure 2 
: Bits bors 13 BEQ 08 iF = a TYPE TEST NUMBER 
HB figs tem bine ehh PROGRES 
1 15046 010046 MOV RO, -(SP) = RO FOR TYPEQUT 
312% 01S50S0 104403 TYPOS HIE TYPE be TAL ASCII 





CO8 


ae BE POPRRIPNE TEST ORY Rut BEET HELIY PE 


T 
RH70/RMO3 REGISTERS 


T(S) 
ING ZEROS 


os 128 TIMES 





i RH70/RMO3 REGISTERS 
T ORIVE 
THE. ERROR 


T Ea 
; RO-RS 
; THE UP/DOWN SWITCH TO UP 
ti THE COUNT 
;STALL F M 
T A 
SiN cYLI 
ART CLOCK 
WAIT ON INTERRUPT 
STOP THE CLOCK 
“ERR@=17 
;NO--BRANCH 
;SAVE _RO-RS 
ie 


;KW11-P_ CLOCK 


in 


CET THE UB/DOWN SHITCH TO DOWN 
OTe OR 2 MILLISECONDS 


; DONE? 


z 

g eg 
b = baat A As 
aE = Ee Sass Cl “F: 
Sasenk B38 Soe bees Nweeke HS =34 


DPE? 


RY 
‘ 
, 
: 
‘ 
: 
’ 


0. RNCS2(RY)’ 
SRMCS2( 


1, aPKCS 
’ 
TAOPB 
ADPB 
RS 
#COUNT 
STWOMS 


» SCRLF 


@ 
T 


sat 
ae0T 


BE 
TYPE 
2 
MOV 
Ry 
JMP 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CLR 
MOV 
MOV 
MOV 
IT 
& 
MOV 
JSR 
MOV 
MOV 
RESREG 
— 
ie 
MOV 
MOV 
or 
WAIT 
BIC 
BIT 
Q 
SAVREG 
MOV 
JSR 
MOV 
Bie 
MOV 
J 
J 
DEC 


TESTIS: 


r § He OO a EE 
s ke eS See I as _ ibe sacee & Ls 


Song a anevstan grasa SARA nen 


payararsy EO OS ad eg ed ee St ot Od Om cain RRON HORN NORA OR RN ATCRALAeA CATA CA =— 
2OOOO0000090000000000: Qoo0Ko0000o 


SSNPS RSS ISE REECE KLEE Sa WGS WER RERSUTE RESET SOS See, 


CIDE ILD LCDI ICD CID LDL CID CCID CODCOD IOI CI COICICICICICED 


001106 1S: 












MD-11-DZRMF-A RNO3 EXTENDED DRIVE TEST 
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1 

a 
1 

1 

1 O44 

I 000010 
1 3764 164 000010 
1 104413 

i 1 

1 012764 000040 000010 
1S Be FS exon 
18606 ‘ 0302S2 * 
HER Sain 

15514 


Mig tt RAKING SEEK: TIMING 
5 


BGT 
7$: I 


JSR 


JSR 
Tle 
EXIT1S: SCOPE 


DOS 
7 


i19 PAGE 62 
SEQ 0094 
1 ; ; 
A A 
(SP)+’ :POP Be THE STACK 
s0TAOPB : 
PC : RH70/RMO3 REGISTERS 
t (R4)’: 
JO TADPB, RMCS2(R4) ; T DRIVE 
$ RO-RS 
>CLOCK OVERFLOWED 
#BITOS, RMCS2(R4) ;MASSBUS INIT. 
JeDTADPB. RMCS2(R4S : eT DRIVE 
PC, asst. :IN Tia ZE THE CLOCK 
#I5R C : RH70/RMO3 INT. VECTOR 
RO, aaTYPTIM :GO TYPE THE TIMES 
: POINTER 
;LOOP ? 


OZRMFA.P11 22-JUL-77 14:59 


MD-11-DZRNF-A RMOS EXTENDED DRIVE TEST aes a 6) Be TT rte PAGE 63 exe cox 


32% 
£4 -SBTTL ### ADDRESSING TESTS ### 


5 7HNS ZBNG ZENS ZENS ZENS ZENS ZENS JENS INS ZENG ZENS ZENS ZENS ZENS ZENS JENS JENS JEN: 
3/4N: AINSI AINSI ANS AANSAANS ZANS ANS AAN FANS AINSI ZAIN ZEN ZAIN ZAIN AANI ZINI ZI: 
3 /4N: 79N3 JANG ZENG ZENS JIN ZAIN: ZA ZAIN: ZAIN ZING ZAIN: ZA: ZINE JAN ZANS ZINTA: 


; UN a Ne Oe ORT ee Or ite TRA 
;#AND SECTOR pong Mt ~_ ADDRESSING TESTS 
S*WILL BE PERF on CYLINDER F 


37 NR 5 NZS NZ 5 NI 5 NZ 5 NBR 5 NABZ 5 NIB 5 NR 5 NIB 5 NZ's NR 5 NBR NR NB 5 NBS NB SNE 


*/: NBs NB 5 NR 5 NZ 5 NR 5 NR 3 NR NZ 5 NB 5 NZ 5 NZ NZS NBS NR NB NRE NR/ SNE 
*/: NZ 5 NZ 5 NZ 5 NZ 5 NZS NR Ss NR 5 NZ 5 NZ 2 NZ 5 NZ 5 NBR 5 NR 2 NZ NB NBS NBS NE 


EEE EE EEE 





5, Mee SEE AE SE AEE EA a EE EE EE 
;KTEST 16 SECTOR ADDRESSING TEST 


ROR gs at BE inl 


: Pais rs eh Ber estes =O 
it Teg Renae a ule Se reeDue Is ConTiMAD Tou 








15516 +t 16: 
1551 NOP 
1 001460 001234 BIT QUBITS#< 1642), TSS ;D0 THIS TEST? 
1 ois? 16152 JMP eet 17 
1 1 16 001102 64S: MOV biG aesTSTNM iBT Fae 
1 JSR 
1 tera? 001110 MOV sTESTIG Sear 
1 1 il Peaaen MOV 28 pice NTO ante DISPLAY REGISTER 
1 13737 001506 001204 MOV afr poe. treSe 
1 113737 001364 001115 MOVB > MAX Bae 
- THIS Ss eres Gh ee oot TEST ING EXECUTED IF SW12 IS SET 
15576 010000 163334 BIT #SW12, ISWR ;CHECK FOR SWI TCH 2 SET 
1 1413 BEQ 20S ;IF = 0, THEN DON’T TYPE TEST NUMBER 
1 13700 1102 MOV STSTNM. RO ELSE, TYPE THE 
1 177006 BIC #177000, RO MASK’ OUT THE HIGH ORDER BYTE 
1 Jowo 1215 TYPE SCRLF 
1 rood MOV RO, -(SP) rr S0Y5 Ao COR RO FOR TYPEOUT 
15624 104403 TYPOS +3g0 TYBE-~OT AL ASC 
eee ae i BPintsl Cbadthe eos 
15630 104401 001215 TYPE ,SCRLF 
015634 20S: 





MO-11-DZRMF-A RMO3 


OZRMFA.P11 


+ 
cr 


<- 


es 





B= ps fas bs fn Bee Poet han be baw Pe hee fee ewe baw tee fee be 


en an 8 Bee Bt Baas deen fee [ben Bas es fm fee fs bee fe Pe 
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001252 
001106 


MACY11 30(1046) 22-JUL-77 16:19 PAGE 64 
T16 SECTOR ADDRESSING TEST 


ae TAs ie Latte cero ADDRESSES 
Bien ee 


TESTI6: 





feet 3s 
88 





POINTER ADDRESS 
1S: 
al ADDRESS 
POINTER 
ITE CHECK DATA 
TRANSFER 
EXITI6: 
. © KERR GRASMERE ERE RARER RRR R REE R ARERR HERES 
tATEST 17 TRACK ADDRESSING TEST 


+ THIS TWILL WRITE DATA IN THe FORM OF TRACK ADDRESSES 
, IN CYL Brom SECTOR OF EVERY TRACK WITH EACH TRACK 
1 A WR PEN: cK 1S ED ON EACH 0 ENSURE 

+ miei Al val iD +e ER 0 IS REWRI Ato TRACK 1 
i THROUGH TRACK 18. is WRITE CHECKED. THEN TRACK 1 IS 

* REWRITTEN AND 2 THROUGH TRACK 18 IS WRITE CHECKED. 








? 
n 
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ZRMF-A RMOZ : 
-Pll 22-JUL-77 14:59 TRACK ADDRESSING TEST SEQ 0097 


s# THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING TRACK 17 
:% AND WRITE CHECKING TRACK 18. 


+ £EE M6 SSH SES SE SE HEHE SE SE SE 





sera eee 


O1b152 tST17: 
16152 000240 
beige nite 001462 001234 BIT DeBITS+<17%2> , TS ;00 THIS TEST? 
1eibs 016630 ae ST20 : TO NEXT TEST 
016170 012737 000017 001102 64S: ## MOV 817,a8STSTN ls; Te Ee ee scar 6) 
. g 
J oh Fi 
HS BH SREB oun © ARYHe SFO an vere “PERE GP wb 
16210 013777 001102 162724 MOV STSTNM, SOISPLAY ;LOAD THE INTO THE DISPLAY REGISTER 
16216 013737 001506 001204 MOV aeRPT, $TI GET THE ITERATION COUNT 
16224 113737 001364 OO1115 MOVB ALL FOR TEST 
-THIS IS A TO TYPE OUT ING IF SW12 IS SET 
16232 010000 162700 BIT aSul2, CHECK FOR SHI TCH lz e - 
. - 413 ; BEQ 208 “IF = 0 THEN DON'T TYPE TEST NUMBER 
1 V7 BIC 3177000 RO ELSE of IPE. HIGH BYTE 
1 i 1 001215 TYPE 
1 10046 MOV ,~ (SP) is SAVE RO FOR TYPEOUT 
16260 104403 TYPOS $05 TYRE OCTAL ASCII 
1 002 .BYTE 2 >: TYPE 2 DIGIT(S) 
16263 000 "BYTE OO ::SUPPRESS LEADING ZEROS 
16264 104401 001215 TYPE ,SCRLF 
16270 20S: 
16270 012737 016626 001252 MOV 8EXIT17, a8BYPASS 
1 1 6304 001106 MOV eTESTI7 ; SETUP THE LOOP ADDRESS 
1 1100 TEST17: MOV aS mews iSeT THE STACK POINTER 
16310 JSR PC, a8 {LBUF *FILL BUFFER WITH TRACK ADDRESS 
16314 Ol 161 OO04166 MOV as0T . ITE DATA 
1632¢ i 1510 176 MOV ger ,ae0T sEYLINOER 
16330 174 MOVB aF T SEC 
16336 O1 170 MOV 9807 ; WORD 
1 004172 MOV " wOTAOPE+6, j BUFFER ADDRESS 
1 CLR RO . =D 
1 1 MOV #. .SLPERR > SETUP ERROR LOOP ADDRESS 
i 1 a HOV sSTACK, SP - *LOAD STACK POINTER 
Jot” ROSH RVORL, ST A bea TRONSEER 
atgs an elie ce 
1 CMP #5, RO OUT OF TRACKS? 
Lbie BGT 1$ : 
1b 4 HOV SUFFER, J80TADPBS6 ;BUFFER ADORESS 
16s MOV #. .SLPERR ;SETUP_THE LOOP ADDRESS 
1 MOV aSTACK, SP ‘LOAD THE STACK POINTER 
16436 MOV DeDTADPB+2 -COMMAND=WRITE CHECK 
16444 2S: MOVB RO,asOTADPB+11 ; 
016450 JSR ‘ *START A DATA TRANSFER 





HOS 
HO-11-DZRNF-A RHO EXTENDED DRIVE TEST WACY1 30(10MG), 2-1-7 46:19 PAGE 66 





OZRMFA.P11 22-JUL-77 14:59 Ti? SEQ 0098 
3404 O164S4 ADD 8256.#2. ,28DTADPB+6 ;UPDATE BUFFER ADDRESS 
me a ce Bro GRE Tests 

r CLR RO sEIRST TRACK ADORESS 
t Bee RRO T ROP eel i Onn BUFFER ADDRESS 
l - fet SUFFER, @80TAOPE+G ;PUFFER ADDRESS 
14 Olé ADD 8256. #2. , 280 TADPE+E 
| 1652: BR 
i? Ole vt tae EN ne since POINTER 
ig Oi ss: TY BRITE Sepreoraed Te Date 
16 JSR RO + 
16 6S: ADD 256, . , aSOTADPB+6 ADDRESS 
: E556 INCE aed il ; MOVE T apne a 
16870 NOV St onared L3 att Poe Me DATA 
1 JSR RO,@ coe 8 Bare ER 
1 CMPB 0s #4, @BOTADPH+11 ;OUT OF S? 
16614 BGT 6$ ; NO--BRANCH 
tes BB =| ae og 
3430 016624 BGT 3s’ :NO--BRANCH 
3431 016626 EXIT17: SCOPE 
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OZRMFA.P11 22-JUL-77 14:59 T T #88 


-SBTTL ### DATA TEST ### 


5 ; LERARAAELLLLAE SELLA ELA LLE LEAL LELELLLA RELEASES ELLE REE EEEE REESE 
: RTEST ro DATA TEST 


ST PERFORMS DATA STORAGE AND Tea USING, Te ON yi a 
oe Coc 
T 2-4 "POR ea cNT™ > Ee* 5 
Poa EP 


“.S* TRACK “NT” 


ky Fak py I momen“ 
Bored Wig met Tieh ro cleetiy THLE ES 1 


wat CK FAILS THE ERROR ‘is REPORTED AS 
TS TO 1 
Ha Re 


PAT 0 PAT 1 PAT2 PATS PAT4Y PATS PAT6 PAT 7 





Re 
SR2 
fie 





ee 
- 
uw 
ee 


ERIE eU SHE 
— 
SeceeseS ISS 
SES 


GEeeee 
Eee 


D 
— 
@ 
D 
=~ 
1.0 
3 
4 
— 
oOo 
3B 
4 
— 
— 
— 
Es 
onal 
~ 
3 
pear 
ee 
WwW 
is 
es 
_— 
-—- = 
— 
wm 


Sy 
_— 
RR 


b= b= = bb bP Pe ee ph be be pe 
atta 
See 


SRFPBRER IS SAIN SSE RR TER ROUND SS Aa aE ERs AaB OTER | 


POSS GOSS SS SESS SS SESS SS SESS GSO SS OS SESE SS SESS SS SS SESS SESS SS SESS SESE SS SS SESS SS SESS SE Ss SESS Ss SESS SESE es we 
We RC HC HE CR IR HE RE AE PE ME BE ORE ORE RC RC IRC ORE Oe OR IIE aR ORC OC Oe IC BI aR OC Oe aR BEC OI Oe Re ORE RC BBC Oe ORC OBC BBC OBC Oke abe aoe Mee nee ee 3 


165555 000001 17777 172666 077777 153333 000000 177777 
feet Siw IEA lee Tee fees Tee 
es ee tee lee lee bee ee 
teases Boas rear isseer toes feeeee itor 
tees BRLBRS 15857 ifeece iprear Testa izeere 





MO-11-DZRMF-A 


OZRMFA.P11 
3488 


Tore Pee bs tee Be tm pe 


d22an Senees 
PE 


SoGcaoe Ge0O0000 


a be bs Be Pb bP t= Re be 


Oooo o" 


Boe OBR RAE CRO BRN MANSON Mca tens one OR oR AED ORR SRR ERS ES 


Bs bs Bm Be Be es b= pe ee 


FES shenee 


: 


BScceee BAN Sceude 
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2 
a 


001215 


016746 


001106 


MACY11 30( 1046) 
T20 DATA TEST 


22-JUL~77 16:19 PAGE 68 





173777 185555 177757 066667 177777 
$3333 Goth 18rhrp ieee 177784 175%? doooo 
133333 Towa Greer iskees 1767he deeee? 177707 


© Se SE HE SE Se HE SE HE HE SE SE SEE EE EE EE SS SS a HE 


tét20 


64S: 


1S: 


NOP 
BIT 1TS+<20%2-40> , T THIS TEST ? 
ny me Ry 
. : THE ER FLAG (SERFLG) 
fier ake Pe 
Rov sa pista ibd Me TEST Wu TRIO THE DISPLAY REGISTER 
MOVB CT, SERMAX 3 MAX Eons A Lone FOR TEST 
grHIS IS fu wacap To TYPE Bet THE JEST SEING. EXECUTED IF SW12 IS SET 
Bea (SS HG phe ars = mrs 
MOV STSTNM, RO HSE,” 
BIC 177000 RO : MASK’ OUT Mirch BYTE 
TYPE aScRLE 
»7~(SP) ee RO FOR TYPEOUT 
TAL ASCII 
-BYTE 2 t TYPE 2 DIGIT(S) 
“BYTE O :: SUPPRESS LEADING 
TYPE ,SCRLF 
;SET UP THE TRACK WORD COUNT FOR DATA TRANFER 
MOV #. , SLPADR ;SETUP THE LOOP ADDRESS 
CLR RO i CLEAR SWITCH ape 
J#LS,R1 iT BAD v5] co 
aeFS,R1 :C WITH FIRST SECTOR 
1S : SKIP IF FS < OR = LS 
PRNLNT+22,R1  ;ADD MAXIMUM SECTOR ADDRESS TO 
RI POSITIVE 


jaak Ser suiicH F 


itSoa tees cas 1 a; NO. SECTORS STILL + 


;FORM NEGATIVE ey Rea 
;COPY NORMAL WORD T INTO SMALL WC 
FS > ate ay” SET? 


S>LS 


Shhes 228 Ress 
z 


Pru 
o- 


SE@ 0100 
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DZRMFA.P11  22-JUL-77 14:59 T20 DATA TEST SEQ 0101 
Seu¢ 017022 005005 CLR {FORM WORD COUNT FOR FS > LS 
HO\ +22,R1 ; 
- SU 3 RL ] SECTOR 
Ri NO CTORS M 
ot aie pee es iThck. WORE COUNT. SP No SECTORS STILL + 
NEG ORM NEGATIVE WORD COUNT FOR THIS CASE 
;SET UP FOR DATA TRANSFERS AND PATTERN VARIATIONS 
170% 11 001524 004174 3s: MOVB 86 aa S S80TADPB+ 10 SECTOR 
1 1 050514 004172 MOV eGUF FER, S80 TAOPS ADPE+6 ;DATA BUFFER 
1 1 017420 001252 MOV I #BYPASS 
i rite TEST2O: ROY STACK 1 oeon THE RITE CHECK ERROR FLAG 
#FC,RI F 
1 81218 eau wie ? eee cue gsr Sry rest TIME THRU 
17105 057% 1S: TST (RO)+ qa TO nearer PATTERN 
v4 oooo4t) CMP #16. #2. ,RO *OUT OF ? 
= a 150 BGT 33 creer, eye TR GML THES CYL INOER UNTIL DONE 
oi 15128 Spoese mpm, BR Bate OUT OF CYLI SSIES a > 
3 ;D0 NEXT CYLINDER 
17124 005000 2S: CLR RO ;START WITH PATTERN 0 
174 03607 001424 001530 35: BIT BITS(RO), aePAT ‘itt PATTERN 5 SELECTED? sent ina 
171 ot 001516 MOV ate Re *FI or 
171 1 004176 MOV Rl. ip ROPB+ 12 +L INDER 
171% 11 004175 4S: MOVB SOTADPB+11 LOAD TRACK 
578 0171 001466 CMP aa #822. FOR DISK oft 
87% 15186 Sor BNE 108 ise Trace’ Cre "NOT 
680 0171 CMP Re, #4 ;LAS 
S81 0171 BEQ ExtT20 tbONT 1 PAST TRACK AS IT HAS BAD 
ese 0171 *BLOCK INFORMATION STORED ON IT ------------ > 
SE 171 MOV RY, 2DTADPB+4 teat Ot 

as 1 CHP LC,RI ft ae TEST ? 

Ot cH 8, Re esi 

99 (01 MOV RS, 28OTADPB+4 

30 (Ol MOV QSHR, RI VTNHIBIT a ae AND 
BS | Con i oa *WRITE CHECK? 

BEQ : ‘ : 

4 SR PC asSETBUF inove Data Pa ATTERN INTO THE BUFFER 
Bie El en: Ajeet ae 
oR 7es0 MOV STACK, SP ‘LOAD THE STACK INTER 

1 MOV #WRITE; J#OTADPB+2 ; COMMAND=WRI TE 
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# D0 A DATA TRANSFER 
es s « ff pat ng ae 
=m my LRT PPC gigs 
eR ae | Th BREN" Pe Ba Ra 
i 1 nite 7S: TST be CK ERROR FLAG SET? 
zie i ni ert , aSWR i AFTER FATAL “WCE”? 
ei Je aS: Bi , OSWR ; INHI T DATA AND SOFTWARE COMPARE? 
B 
f i a mov osstaceee. } ne sien POINTER 
1@ O1 MOV 8READ eo TROPE+2 : 
O40: JSR sab ART A DATA TRANSFER 
' BIT 1,aSWR DATA? 
; Ra BS few Gene 
ce tat re ir. 2 OUT OF TRACKS G0 10 NEXT PATTERN 
3625 O17416 BR 4g 
3626 017420 EXIT20: SCOPE SCOPE LOOP 
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OZRMNFA.P11 


En ey ne ee ee 


et SARS EAS SSAA AT ATTA Reese eae inca tcste ade 


— i 


ee WE 1 Ra. 


eee 
qe 


001426 


12737 Ooobe! 


001364 


032777 - 010000 
haters 
01215 


001215 
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MOS 
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RAR 


u## EXERCISE TEST 
-SBTTL ### EXERCISE TEST ### 


3 5 eee JHINHHIHHHINHHHHHHINHHINHHIHHISEHHIHIHEEHEEE 
;#TEST 21 RANDOM ADDRESS AND RANDOM PATTERN TEST 


STARTING AT “FC” AND GOING SEQUENTIALLY TO “LC” THE DISK 


PE SHUNT AEB Me Moor Omit 


Us 3 aL ae ‘ THE FOLLOWING SEQUENCE “R™ TIMES 


1) GENERATE A RANDOM SECTOR ADDRESS 


OE EK OEE DRC Be DRC oie DOC ORC Re oe ape OC ORC Bec 28 2RC te oe oe oe 


; 

; 

: 2) crewed ih DoH PATTERN AT THE AODRESS 

: 3) A NEW RANDOM SECTOR ADDRESS 

: 4) TOR de THE ADDRESS 

; S) THE DATA READ IN 4 AGAINST 
: IGINAL we 

: 6) A WR fea eto OF re “tery IN 2 
: 7) 

: 8) GYOR al Te AT 

5 

. 9) 

id) TE Ac Se DATA WRITTEN IN 


«SE SE 36-36-36 96-06 6 HE HE A HE SE HE SE SESE SE EE HH HHH 


tét21 


Bry BITS+(2142-H0), TSTNMS#2 ;DO THIS TEST ? 
os: Besson SB i ua 
sCLERR EST fi cn An (SERFLG) 
BS) eSB ae nen Er 5 
HOV Hf ner nae” fer! T NUPBER INTO THE DISPLAY REGISTER 
MOVB ERRORS ALL OveD FOR TEST 
-THIS IS A 8 macng TO TYE our T BEING. EXE: IF SWi2 IS SET 
BIT #SW12, ISR foe A eur 
BEQ re 0, THEN DON'T TY TYPE TEST NUMBER 
MOV STSTNM, RO tyPE 
BIC #177000, RO tAOEK’ QUT THE HIGH ORDER BYTE 
TYPE aScrLe 
MOV ,~ (SP) ; RO FOR TYPEOUT 
TYPOS Be TYPE--OCTAL Ase 
BYTE tO UPPRESS CEADING ZEROS 
Ae TYPE ,SCRLF 


SE@ 0103 
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Tel RANDOM ADDRESS 





Pee fee Dt en fet me hee fet Dee Bis fea Pee en ee Pema See Pee Gea ee Ge 


S SeSkhbeassehenesenee 
a 


S 
= 
2099 
saa 
S33 


SSSA SOE RATSR SRSA ROR RCE URRES 
2000000 02000 DBODCQDQCOSGOOCQCOQOQOC0O 
meas Be 


= 


bb f= be 


a 
a3 
== 


2 
- | 


é 


ss) 





22-JUL-77 14:59 ~ 


1 iss 


BR 


001106 
0012S2 


1 
172 


TEST21: 


S83Sss3s 


~wo 
rir ta 


38 $888 aes rE ara S888 AGERGgY 28e 


AND RANDOM PATTERN TEST 
;SETUP THE LOOP ADDRESS 


ie frie ;PRIME THE RANDOM NUMBER eget 
PROSE TARE coe sean sccrns FLL. TE 


salle snoiegrere wh THe DISK PA PACK BEFORE TESTING? 


mimes Date 


feo TREK R KITH RANDOM DATA 
THE LOOP ADDRESS 
NTER 


Stack, SP OAD THE STACK POI 

RO ;START A DATA TRANSFER * 

BeOTADres iT 

#5, J8OTADPB+11 TIME FOR CYLINDER ? 

gs sn 09. ON THIS CYL. 

he OB TABPBS 12” OUT OF <ae 

Hy ;NO--CONT SE RUENTIAL RANDOM WRITE 


STEST21 S6SLPAOR 


He ;SET STACK POINTER 


eee repeat ig, aasvi 
Cie gasp cae eat 
Ro’ 3eRA EENeRA 







; FOR “RANPAT” 
are, | She ee ae ne 
peut : Vy la 
ieee ge ara 


Q8SVAOR, @SOTAOPB+10 ;GET ADDRESS OF WHERE THE LAST 


BUS snitraee scl Ababeotele ChE CK DATA 
rh OTOP Sd oe ey FOR HARDWARE 


SL 00P ADDRESS 
esta SP *LOAD THe 


SEQ 0104 


PERERCESEO ELS CP SRRESERRSACH ONO Gr GD TR ERC RUrP EPPS E PERN BE 









+ 

a} 
+h+ 
tre 





- 
i’ 
~ 
A 











A 






tatat 
tT, 


y 





EXTENDED DRIVE TEST 
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bat be ee ee pe pee 


004037 
3737 
Hen 
2737 050514 
5766 
004037 
000004 


g 
aes 


2 2 Bee 
Ra KR 


yes ie 
ss 
o 
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Tel RANDOM ADDRESS AND RANDOM PATTERN TEST SEQ 0105 


JSR —_—- RO, @#ORVCAL ;START A DATA TRANSFER 
nov aS TROPE+2 | pemepdenane:: 
MOV ie : maT - DATA ADORESS 
HOV Sp tT OAD. THE fecal pees 
ISR ea : A DATA TRoeer ER” 
JSR _- RO, BRANCK SOFTWARE CHECK THE DATA 
Mov O ;GET DISK OF THE 
ERE re ota oe om 
mY tena TSG TFET fore 
JSR RO, J8DRVCAL ‘START A DATA TRANSFER 

EXIT21: SCOPE ;LOOP ? 


-SBTTL ### RMO3 ACCESS TIME ADJUSTMENT TEST ### 


5 (HHH: HHH HHH 
;#TEST 22 RMO3 ACCESS TIME ADJUSTMENT TEST 


t ROSSI SIS APLAR UO "Bg TE 
Bl he REESE STEN he BR BP EES 





; ee ee PRESRKSRKS 
” NOP 

BIT BITS+<2242-40> , TSTNNS#2 :D0 THIS TEST ? 

JMP SE : TO THE END OF THE PROGRAM 
64S: MOV #22,Q0STSTNN =; SET NUMBER Bo a 

ASE se eg Op a 

MOV Teste ere . INTO THE DISPLAY REGISTER 

MOV DeRPT,STIMES =; TION 

MOVB sos : The TEST 
Test22: HOV SST REX eo “s Te DOTRTER 

” MOV fe! Atl t PROTNG CYL Noch 

MOVB sa0ee. Ate : SEEK=COMMAND 

ISR : aCALL.A 580 EXECUTE THE COMMAND 

JSR sSTALL 

. WORD STALLS ; ADORE OF STALL VALUE 

MOV C,0PB.A+12 °§ NG CYLINDER 

MOVB  8SEEK. a8DPB.A+2 ;SEEK=COMMAND 

ISR RO, geCALL A 500 EXECUTE THE COMMAND 

. STALL3 t BOORESS OF STALL VALUE 
EXIT22: SCOPE LOOP ? 





DRACPITY * SeaUSy arch TEST BEY RAde Roe 6E The” hose tent’ fest 


020414 


001100 


eS ae ara 
: NOUS UU © rs 


+* 








; 


+--+ 
erye 


See , 





Basseaian 


CO9 


SEQ 0106 


-SBTTL END OF PASS ROUTINE 
33 tt ke ae geno gehts ye |: geese emanate 
;KINCREMENT THE PASS NUMBER 


(SPASS) 
;#INDICATE END-OF-PROGRAM AFTER 8. PASSES THRU THE PROGRAM 
; SE ees TS 8 ienth 


: IF ISN’T JUMP TO RESTART 
SEOP: 
TYPE 53 TYPE ASCI z STRING 
bigs -ASCIZ 1 aap, if beset 
ar ae @gORVSEL ANY DRIVES SELECTED? 
PERE Bs ts 1Z STRING 
BR :3GET OVER ASCIZ 
jj878: “ASCIZ / ON DRIVE/ 
"MOV JSCHKDRV, - (SP) @SCHKDRV FOR. TYPEOUT 
Be Her tial 
TYPE £95 33 TYPE ASCIZ Mag ens 
BR bs T OVER THE ASCIZ 
iab3S: .ASCIZ / ERRORS peTectt 
. HOV QSSERTTL, -(SP) pee QUSERTTL FOR OR TYPEOUT saat 
1S: aR QUSERTTL Eo tpeon fo ao 
hE es We Necet 2 Ererios 
INC SPASS NCREMENT 
BIC #100000, SPASS HboweT ALLOW A NEG. NUMBER 
DEC (PC)+ LOOP? 
SEOPCT: .WORD 8. 
BGT SDOAGN — 
MOV (PC)+,a(PC)+ § } RESTORE COUNTER 
SENDCT: .WORD 8. 
SEOPCT 
TYPE TYPE ASCIZ STRING 
BR bus *:GET OVER THE ASCIZ 
jigs: “ASCIZ <CR><LF>/END OF TE 
nae nove 4 RO S 
ee ELA ith 
RESET *?CLEAR THE 
SENDAD: JSR PC, (RO) 136970, non TO ronrtOR 
NOP 
NOP : FOR 
NOP >sACTII1 
* IMP a(PC)+ ; ; RETURN 





DOS 
BORMAN Ue neo e TEST OT Oe BRSe ROUTINE vow” 1:49 PAGE 75 SEQ 0107 


3851 02064 006052 SRTNAD: .WORD RESTART 
$025 020650 conten 377 O00 SENULL: -BvTE -1,-1,0 ;;NULL CHARACTER STRING 


EOS 
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SERELKLAEE LEEK SELES 
i Soe THIS ROUTINE WILL INCREMENT THE ERROR FLAG ARO THE ERROR COUNT, 
AND THE ADORESS OF THE CALL 
is te BY THIS ROUTINE ARE: 
-#SW15=1 
pls TYPEOUTS 
;#SW10=1 
eat oe — 
i ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 


CKSWR 5p TEST FOR CHANGE IN SOFT-SWR 
aM , @SWR MESSAGE TO TTY? 


U2. Mi, LINE PRINTER AVAILABLE? 


Q 
Rov oetPa’ ges TPE reg te FOR LINE PRINTER 
7S: INCB SParee age E ERROR FLAG 
BY Genes sreny (Bf ltrien hd CR rua 
att 881710; : ERROR 


» Fe ea A 
, {COUNT THE NUPBER OF ERRORS 
nov (sP)Senmpc OF ERROR INSTRUCTION 
Te ast ee Hid wer 


I 881713, SKIP 
BS OBE TyPERR 36/40 ars ROUTINE 
~ TYPE ,SCRLF 
2$: TST aSWR ;;HALT ON ERROR 
BPL 38 *:SKIP IF NUE 
HALT Bs 
CKSWR $3 OR CHANGE IN SOFT-SWR 
38 BIT 881709, aSHR ON ERROR SWITCH SET? 
MOV SLPERR, (SP) He RE TURN FOR LOOPING 
4S: TST SESCAPE Hae FOR AN ESCAPE ADDRESS 
BEQ os :BR IF NONE 
. MOV SCAPE,(SP)  };FUDGE RETURN ADORESS FOR ESCAPE 


MOV aT TPS TATUS AND BUFFER REG.’S 
MOV Se1Pa’ aes TPB fy 
RTI RETURN FROM ERROR CALL 

5p RERRRERERLE RARE E EEE LE SEES LEER REAR AEE RER EERE RE ELEEREEREEE 
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-Pll = 22-JUL-77 14:59 TYPERR - TYPE ERROR ROUTINE SEQ 0109 


Dae a ee ne 
Ne REPORTS. tHE APPROPIATE INFORMATION 
ish PC, @8TYPERR 





igh 113737 001102 001176 TYPERR: cies °° aes »OUSTMPO j THE TEST NUMBER 
St { 000004 : ST 
1 1 001162 MOV Ro’ RO SREGO COPY RO-RS IN SREGO-SREGS 
lids ines? boriee NOV Eis 
lll2 01 atta MOV 
i ui 001172 MOV é, 
1 1 001174 MOV 
ise Ot meet HOVE a tie vit NORIO 
i DEC. ro" san CORY ERROR TABLE 
1140 1 ASLB RO 
rath 1 ASLB RO me 
BStive hegiri 000240 se BO aT Tem -seRRTB, RO; ri’ ORM OFFSET 
GS118 Brsa97 Belize ; nov (RO)+, i (EM) POINTER 
11 1447 BEQ 7§ IF THERE ISN’T ONE 
tif 104401 001215 EE, , SCRLF *"CARRIAGE RETURN - LINE FEED 
t 2s : 0 "EM" POINTER GOES HERE 
; 74 000041 SUB #41,R1 ; SPEC ITEM NUMBER? 
1 13701 001260 MOV QESVSTAT,R1 iGeT TATUS/ERROR INDICATOR 
: 1 106301 ASLB Ri SIRI ee {81107} 
: GBi812 O13 70e 004254 Roy SSTATBL,R2 ih Ue {Bd beesace POINTERS 
46 dele Aa, CLR Ra ee aie INE FEED SWITCH 
: 51554 Apes BR . 645 4 ie grin 
na jgSss: -ASCIZ 7 (/ 
; 021254 3S: MOV (R2)+,5S 
ibe pee my mar 
21 103013 BCC 6$ NO cBRERCH 
1 COM R3 i YES--TYPE A “CR” & "LF"? 
1 1 BNE 4§ :NO--BRANCH 
i i 001215 ve TYPE , SCRLF ; YES 
1 cs: .WORD O tenets We POINTER GOES HERE 
{ gt BoC 
1262 104401 044657 TYPE MSG. SP sed 
1266 7h BR 4g ; LOOP 
1 1 6S: BNE 3S *BRANCH IF NOT FINISHED 
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Dt 2 Bt ee pe Be be te 


FEGRERH PND ROR RES TOPE ROEM ER 
oe 


NOW LW O 


pat Pee Ret ban bat fee Pe ee Ge 


R 


d 


at 


4 


= 


ini 


021300 


021316 
001215 


001215 


TYPE 67S 
BR 66S 
-67$: .ASCIZ /)/ 
: MOV (RO)+, 8S 
BEQ 93 
, SCRLF 
T 
8s: -WORD O 
9S: MOV (RO)+,R1 
BEQ 
CLR RS 
MOV (RO)+,RO 
MOV (8) +, Re 
BEQ 1 
COM RS 
TYPE 
10S: MOVE  ([RO)+,R3 
MOVB  (RO)+,R4 
118: ROR RY 
BCS 12 
MOV 3(R1)+,-(SP) 
TYPOC 
BR 13 
128: 
MOV a(R1)+,-(SP) 
TYPOS 
138: per R3 
Q 14§ 
TYPE MSG. SP 
BR 1§ 
14S: DEC 
BLE 20S 
TYPE SCRLF 
COM RS 
BNE 15$ 
YPE MSG. SP 
15S: MOV {RO)+, 16S 
TYPE 
MOS: ee, Oscrte 
TST RS. 
178: Oe MSG. SP 
BR los 
20S: RESREG 
RTS PC 


-SBTTL TYPE ROUTINE 


ee IVE TEST a8 ups ge Ber 1s PAGE 78 


; 3 TYPE Ones fe nants 


;PICK UP DATA HEADER (DH) POINTER 
BRANCH 


CARI INE FEED 


iploap bat ete Le (OT) (DT) POINTER 


tet! FORMAT ci POINTER 


ince it bn uroeh 1 


a UALS Pe 
Pana Nien 


(R1)+ FOR TYPE 
i SRE SCR) FO ascTT TALL DIGITS) 


3s SAVE @(R1)+ FOR TYPEOUT 
;GO_ TYPE--DE gO peel WITH SIGN 


Se areee . 


; YES--TYPE SEPERATORS 
HORE 


NO -BRANEH 
1 al A NEW LINE 


i 
a 
z 
a 
a 
A 
g 


; INDENT? 


5p HAE AE SE 0 9 9 a a a 0 a a a a a a a a a a a a a 


0 TYPE ASCIZ MESSAGE. 


pid ROUTINE WILL eg 


ILLS CONTAINS TH THE NUMBER OF 


MESSAGE MUST TERMINATE wrTH A O BYTE 


FILLER CHARACTERS REGU 


+ ENOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


ay: D AS TH THE mii IELERCivnacreR. 


SEQ 0110 


? 
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Pil 22-JUL-77 14:59 SEQ O111 


;HORIZONTAL TAB PROCESSOR 


% 
>#CALL: 
#1) USING A TRAP etSTRUCTION 
fe TYPE ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
i TYPE 
: i MESADR 
;# 
1450 105732 001157 STYPE: TSTB STPFLG ;;IS THERE A TERMINAL? 
H0002 BPL 1s ;;0R IF YES 
eas poe? HALT ;;HOLT MERE IF NO TERMINAL 
I 017600 00002 an ROY BD cis), ii Me ASCIZ STRING 
be ele ee 
Oe 17g [ene 2S: MOVB *Root TCSP) | Pus GhenacreR T0 af ONTO STACK 
0214 BNE 4§ *:BR IF IT ISN'T THE INATOR 
1474 TST (SP)+ - IF TERNINATOR POP IT OFF THE STACK 
14 60S MOV (5P)+,RO : REST 
1 16 oo000e2 3S: ADD #2, (SP) He RE PC 
1 RTI > + RETURN 
Abi 000011 4g: CHP sHT, (SP) +:BRANCH IF <HT> 
1 i 16 000200 CMPB CRL F, (SP) ; BRANCH IF NOT <CRLF> 
1 eye (SP)+ ;;POP_ <CR><LF> EQUIV 
i TYPE TYPE A CR AND LF 
1 021664 CLRB § SCHARCNT ;;CLEAR CHARACTER COUNT 
1 BR j5GET NEXT CHARACTER 
1 1620 cs: JSR PC. STYPEC He THIS CHARACTER 
1 001156 6S: CMPB SF ILLC, (SP)+ ists IT TIME FOR FILLER CHARS. ? 
1 BNE 33 1F_NO T CHAR. 
1 1 001154 MOV SNULL , -(SP) >:GET & CHARS. NEEDED 
*:AND THE NULL CHAR. 
1554 105366 000001 7S: DECB ss SP) >:DOES A NULL NEED TO BE TYPED? 
BRD aun & for bet 
1 1664 CB = SCHARC *:D0 NOT COUN A COUNT 
1572 000770 BR +: LOOP 
Bod boaeae 
604 132737 
12 
14 
ie 
1 
a Leh 
2 O01 
644 1 
650 000406 


SSSSSSSELARLEEORS SAGA ANSE SESESER CERNE OMNGES & 


1 8S: MOVB =s #’-—« (SP) ;;REPLACE TAB WITH SPACE 
1 1 9S: JSR Pc, $TYPEC > TYPE A SPACE 

1 000007 021664 BITB #7, SCHARCNT j | BRANCH RG NOT AT 

1 aut (SP)+ + DO Space OFF STACK 

1 BR ro} *:GET_ NEXT CHARAC 

} 157324 STYPEC: ISTB TPS >:WAIT UNTIL PRINTER IS READY 

rl 00002 157316 MOVE  2(SP), aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
1 1§ 000002 CMPB sa#CR, 2 LSP) 31S CHARACTER A CARRIAGE RETURN? 

1 BNE 1$ : BRANCH IF NO 

1 021664 CLRB § SCHARCNT +: YES--CLEAR CHARACTER COUNT 

1 BR STYPEX ; EXIT 
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77 14:89 TYPE ROUTINE 


22-JUL- SEQ O112 


vo 
a 
fest 


goodie o00cde 1S: CMPB oe al BE eas IS Cee tee A LINE FEED? 


ea Ge : 
ae Ioaze? weecnt "an (Po COUT THe GiRacTER 
021666 000207 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
ituts ROUTINE 1a USED To COANE @ é-BIT BINWAY MIPGER TO A 6-01 


trite Sena eRe eh Q 16-811 BINARY NUMBER TO A 6-DIGIT 
ate TO SETUP # Aa ZEROS AND NUMBER OF DIGITS TO TYPE 


. * MOV NUM, - (SP) $3 TO BE TYPED 
1 TYPOS HH FOR OUT 
* .BYTE N :N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3 -BYTE MM ;;M=1 OR O 
+ ;;1=TYPE LEADING ZEROS 
is ::O0=SUPPRESS LEADING ZEROS 
jeer VP -OTeR HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
*#CALL: ' “ 
i MOV NUM, -(SP) ; | NUMBER TO BE TYPED 
is TYPON CALL FOR TYPEOUT 
j #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
pee * MOV NUM, -(SP) ;NUMBER TO BE TYPED 
* TYPOC CALL FOR TYPEOUT 
670 0176 STYPOS: MOV 0(SP), <(SP) 3s PICKUP 
74 11 O1 022113 MOVB rt P),SOPILL ed Fi SUITCH 
mye rletowes.  Etat aowss™ 
: #1, ;;SET THe FILL SWITCH 
: +1 77 SET F X(6) DIGITS 
: HOV »SOCNT 7567 THe TION T 

Aen Seat seve Be 

nove +1,R4 °:GET THE NUMBER OF DIGITS TO TYPE 

ADD 86, R4 ;;SUBTRACT IT FOR MAX. ALLOWED 

MOVB Ra >:SAVE IT FOR 

MOVB LL, RY °:GET THE ZERO SWITCH 

MOV 12(SP),RS ;;PICKUP THE I 

Rt Re ies Ate Hee into “¢* 

BR ;;GO0 DO MSB 

ROL RS ::FORM THIS DIGIT 

ROL RS 

MOV ,R3 





a A 9 PAGE 81 SEQ 0113 
DZAMFA.PIL  GoTULA7? 14:50 BINARY YO OCTAL. (ASCII) AND 
DZRMFA.PIL — @2-JUL-77 14: 






























THIS DIGIT 
ROL R3 ; PE THIS DIGIT? 
Bets ee ehh or sum 

a BIC ihr a THIS u? 

TS RY ::BR IF ANYMORE 0’°S 
41 BEQ 8S i Doytt S DIGIT ASCII 
ui us: NC ORY pa Bs 
ui ; ars 5 Ons 33 F TYPING 
414 ss 8 FS 5 THIS DIGIT 
a we ag :;COUNT BY 1 
41 Dech —S$OCNT ssBR IF WORE TO DO 
i 7s BGT 2S ;;BR_IF T DIGIT ISN’T A BLANK 
4 Le 55 TE eT OterT tT 
dig BR )+,R5 i ResT One Ru 
4] ’ MOV ( Q ee T 
i a a 
41 Moy tSPyetcse)) —_ 

MOV ’ 33 IGIT 
di RTI i STORAGE FOR. ASCIT_p ROUTINE 
ui 8S:  .BYTE O SET eer ScuNTe 
4] nt, “BE 8 tien FILL Sui TCH rer 
al SoriLi: “evie 0 biMIGER OF OIGITS To 
41 SONODE: “ORD 0 ; AND TYPE ROUTINE 
diel TL CONVERT BINARY TO DECIMAL JJHHBBBHHHBEE 
dike “aol EEEHEEEEOREE ESE EESESEREEEEE EEE TO AS Olcrr 
4164 ;ATHIS ROUTINE IS ) MO SPaCE OR’ ACHINUS SIGN WILL BE BE 
4165 ; CIMAL GATIVE A ZEROS WILL ALWAYS 
41 SRUNDER 18 POSTIVE OR Ne NUMBER. LEADING 
ts, HNDEFORE THE FIRST OIGIT OF THE 
4168 tEREPLACED WITH SPACES. BINARY NUMBER ON THE STACK 
mH j CALL: NUM, ~(SP) $160'10 THE ROUTINE 
ain os 3 
oa } BUM RO Ow sa 

: -( ii 
4i7s g22116 ; Ov RL; (3) + PUSH Re oy aT 
um igs my tS oP ae ale wo si 
4178 Oe MOV 200,-(SP) }!SET 
32 1 (SP , 

ie ee Hee Ae ate Pat aN al 
i Bel ibe 000020 eo 6B 5 | MAKE ite AST og 
4 Nee MOVB #’-, 1(SP) ie POINTER 
it eat 112768 0000S5 000001 ae a. ee Se eee To a BLANK 
a asst MOV 8’ .(R3)+ 3398 it. BCD NUMBER 
wig? GSBIen Of Oee33e in baa, 
RE ue 
4168 Geel 





MD-11-DZRNF-A RMO3 EXTENDED DRIVE TEST MACY11 
CONVER 
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zis eon, aze32e 


- 


000010 


177777 177776 


Goode 000004 


7S: 


SDTBL: 


SOBLK: 


30 
T 


SSSRREAR ES 


as 
w 
“+ 


JS SSSSRSCSEABERRG 


. = ZT 
peege- 
a 


(1046) 
BINARY TO DECIMAL AND TYPE ROUTI 


22-JUL-77 16:19 SUTINE 


ATE, 0) 
1,RS 


pepe Ae tA fet Lite 
oes 
3 


Tay 
wer < 


aeaaaeaa-ng 
5353-8 > 8 


~ 
+ 
7. 


4 


-SBTTL TTY INPUT ROUTINE 
5.2 AEE 9 9 9 9 a a a dE aE 


LSB 
“WORD 0 
WORD 0 


Hie, 2 


STKCNT: 
TKQIN: 
STKQOUT: 


;#TK_INITIALI 
;#THIS ROUTI 
;*#SETUP THE I 


CALL: 


NTERRUP 


ROUTINE 
WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
T VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


VE 


;;GET THE CONSTANT 
;;FORM THIS BCD DIGIT 


i BCD DIGIT BY 1 


THE SIGN 


;;RETURN TO USER 


SE@ 0114 








MD-11-DZRMF-A RNO3 EXTENDED DRIVE TEST 
OZRMFA.P11 22-JUL-77 14:59 
: peszee BS 08535 oeeady 
raat 
used 5392 01203 GE6G22 Obbtet 
ee ieee 
12777 000100 156524 
000207 
4 
: 
4 
276 001140 
44> 
th 022342 
156362 





Ye IO) ee an 16:19 PAGE 83 


# ISR PC, STKINT 
;* RETURN : 
STKINT: STKCNT 
re sresit ster 
KgouT 
HOY aatKvEecte 
MOV $100, aSTKS 
RTS 
: #TK ICE ROUTINE 
:¥THI NE WILL 
;#BY ING THE CHARAC 
art N_THE . 
;*1F IS 
; UPON EXIT IS MADE TO 
$TKSRV: MOVB OsTKB, (SP) 
BIC $#C177, (SP) 
CMP (SP), 83 
LC 
JSR PC. STKINT 
TST (SP)+ 
IMP START2 
1S: CMP (SP), 87 
ane #SWREG, SWR 
BEQ 6$ 
2s: 
CMP #2, STKCNT 
BNE 3$ 
TYPE SBELL 
TST tSP)+ 
BR 5g 
3S: CMP (SP), #23 
BNE 325 
CR TKS 
ST (SP)+ 
318: STB  @a$TKS 
BPL 31$ 
MOVB @$TKB,-(SP) 
BIC #¢C17?, (SP) 
CMP (SP)+, 21 
BNE 31$ 
HOV #100, aSTKS 
325: INC STKCNT 
CMP (SP), #140 
BLT 4§ 
CMP (SP), #175 
BGT 4§ 
BIC #40, (SP) 


SE@ 0115 


iP OS SIO ne 
AMT He Redo WEA oerO™ ES 


SSE TY etme P 
FROM THE INPUT BUFFER AND PUTTING 


A a oe (#C) STKINT IS CALLED AND 


“CONTROL-C” RESTART ADDRESS (START2) 


RING THE TTY BELL 
33 CHARACTER OFF OF STACK 


3 EXIT 
IT A CONTROLS? 
9° 
:301 TTY KEYBOARD INTERRUPTS 
+ OT ON CHAR oF ACK 
;;WAIT FOR A CHAR 
: UNTIL ITS THERE 
j3GET_ THe CHARACTER 
jsMAKE IT 2-BIT ASCII 
ae : 
;;BRANCH IF _NO 
RE ENROLE TTY KEYBOARD INTERRUPTS 


; RETURN 

33 T THIS CHARACTER 

3318 IT CASE? 

;; BRANCH IF YES 

33:I1S ITA aren EAL CHAR? 
BRANCH _IF YES 


tIMAKE IT UPPER CASE 
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DZRMFA.P11  22-JUL-77 14:59 TTY INPUT ROUTINE SEQ 0116 
4302 022610 112677 177530 4g: MOVB (SP) +, @STKQIN ;;AND PUT IT IN QUELE 
022352 ae BTkGIN, estoEN Hao ore ie ’ 
922350 022344 SSTKGSRT, STKQIN ;; THE POINTER 
SS: RY : + RETURN 

: 5 5 HHH - “ Eee EES Sf] 
a NE SURGE FI REAP UNE, wo wr 
4 1 ; #SERV TEST Chane IN SOFTWARE SWITCH REGISTER TRAP 
4 i 022737 000176 001140 sr Pa OPERATING » SHR NTER AP THe -SWR SELECTED 
a3 0011 ae H] ii IT A i 

1 ippie, | pe Peg aS a 
a3 i aitit Mee Secie>, tap) ites i. 7-BIT ASCII 
ib Ceiea? Anabor Bt (SP), 8? ie ar A conf hoes 
4 1 BNE 2g *3IF NOT, PUT IT IN THE TTY QUEUE 
. 3;AND EXIT 
uh $j, MBE SESE SESE AES SE Sg A SSS SS a HE EE 
4 : KCONTROL B PASSED TO THIS POINT FROM PETER THE TTY INTERRUPT SERVICE 
4 *#ROUTINE OR FROM SOFTWARE SWITCH REGI CALL, AS A RESULT OF A 
4 *#CONTROL-G BEING TYPED, AND SOFTWARE SWITCH REGISTER BEING SELECTED. 
is ita 001134 00001 6S: 08, 61 Ha Fai IN AUTO-MODE? 
4 + He -G OFF STACK 
4 004 022352 JSR PC, STKINT He THe TTY INPUT “ine os 
: ene bBB55r 001135 She oF Sintec DISA TTY never NCaTOR 
4335 104401 023564 TYPE  ,SCNTLG Hite: CONTROL-G (4G) 
4 1 SGTSWR: TYPE SMSWR He CURRENT CONTENTS 
iy Oise Bai 7 MOV SWREG, -(SP) He FOR TYPEOUT 
i Typoc sleek: > 260 TyPe OC Tat BSCTICALL DIGITS) 
a6 Goo samme 19S: CLR (SP) tC AR COUNTER” 
wae 156166 75 FR OSTKS bi CHER THERE? 
a 1BR596 ‘ ae tT NoT TRY AGAIN 
4 117746 156162 MOVB § aSTKB,-(SP) ;;PICK UP CHAR 
042716 177600 BIC #40177, (SP) MAKE IT 7-BIT ASCII 
4 951627 000003 cup (SP), #3 3315 17 A CONTROL-~C? 
‘ 104401 023552 Typ ScnTuc s5ES, ECHO CONTROL-C (#0) 
: Boiiae 000001 CHP STATAG, #1 HREENRLe T1y KEYBOARD INTERRUPTS? 
a 100 156120 MOV $100, a$TKS th On KE INTERRUPTS 
4 137 Bpaeee Ly IMP Starte : ?CONTROL-C RESORT 
4357 
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DZRMFA.P11  22-JUL-77 14:59 TTY INPUT ROUTINE SEQ 0117 
4358 21627 gs: CMP (SP), #25 31S IT A_CONTROL-U? 
001 BNE 10S ie j ;BRONCH IF NOT ‘ee 
havea 20S: ASD De Pag eS | ou et but 
4 BR 198 *:LET’S TRY IT AGAIN 
000015 10S: CMP (SP), #15 3318 IT A_<CR>? 
BNE 16S 33 IF _NO 
000004 TST 4(SP) ::YES, IS IT THE FIRST CHAR? 
BEQ ig. js BRANCH IF 
Soo ee OS" eee 
11S: ADD #6 SP 3 5CLEAR 5 STACK 
ie. aes 000001 , Ops SINTAG, #1 tea TTY INTERRUPTS? 
5 BNE 15$ :BRANCH IF NOT 
ie. 000100 156024 at. Hoy #100, 3STKS * RE-ENABLE TTY KBD INTERRUPTS 
le. 1620 165: JSR PC, STYPEC Hi. a SHAR 
re Sone CMP (SP), #60 *:CHAR < 0? 
= BLT 18$ ;;BRANCH IF YES 
wk 000067 CMP (SP), 867 *:CHAR > 7? 
ie Bet OABS spe 5 E Retry 
ik ert TST 2(SP) -31S tite THE FIRST CHAR 
Des BEQ 178 :BRANCH IF YES 
ee fet «Cp b ENO, See OVER 70 HIKE 
De: ASL (SP) He caen eee NEW ONE 
ve 177776 178: eee) csp) FSET ANCHE CHAR 
nS BR brRET He ext ONE 
nes 001214 18S: TYPE SQUES :: TYPE ?<CR><LFD 
De 20$ >:SIMULATE CONTROL-U 
.DSABL LSB 


55 SEE 3 3 36 38 9898 3 2 0 9 9 9 0 0 9 0 I 
j ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


je OCR ene it ilaacten 1S ON THe STACK 


T 
*:WITH PARITY BIT STRIPPED OFF 


11646 SROCHR: MOV (SP), -(SP) ; PUSH DOWN THE PC AND 
16666 000004 000002 4(SP},2(SP) He 
000004 cLR 4¢SP) j3GET READY FOR Q. CHARACTER 
023226 HOV #64S, -(SP) +: PUT ‘el pe or ST 
9° 


;;WAIT ON A CHARACTER 


022342 STKCNT ;;DECREMENT THE COUNTER 
117766 177102 O00004 »  MOVB @STKQOUT,4(SP) ;;GET ONE CHARACTER 


zat rere cor 
—) x + 
3 y +. 8 + r¢ 
ne - 
= SE 
SAAN aC Ra 
. ‘ + 
yee ¢" “ 
ie oe 





B10 








MD-11-OZRMF-A RMO3 DRIVE TEST MACY11 30(104%6) 22-JUL-77 16:19 PAGE 86 
OZRMFA.P11 © 22-JUL-77 14:59 TTY INPUT ROUTINE SEQ 0118 
905237 022346 INC STKQOUT 3 UPDATE THE POINTER 
O2234% 022352 ce TKQOUT , SSTKQEND’ ; :DID T G0 OFF OF THE END? 
Ble737 122350 022346 . HOV SRT, STKQOUT’ ; : RESE; He Sornter 
$3 PPOPTTETTOTT TTT TTT TTT TTT TT TT tT titi ttt TTT TT tr titi ttt tS 
THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
ti ROLIN ;;INPUT_A STRING FROM THE TTY 
= RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
:% * TERMINATOR WILL BE A BYTE OF ALL O'S 
44 01034 SROLIN: MOV R3,-(SP) ;;SAVE_R3 
CLR =(9P) iiCLEAR THE RUBOUT KEY 
44 1 023526 1S: MOV #STTYIN,R3 He ss 
023552 CMP SSTTYINS20. ,R3 is BUFFER FULL? 
saat 1 LR BLOS 4§ ;:BR IE YES 
4431 10441 ROCHR +8 ONE CHARACTER FROM THE TTY 
44 11261 ‘ MOVB (SP) +, (R3) s3G6T CHARAC 
yy 000177 10S: CMPB  8177,tR3) He I A RUBOUT 
4Yy 1 BNE 3;8R IF_NO 
4y 16 TST (SP) 21S THIS THE FIRST RUBOUT? 
3 a a ee a 
up il 000134 023524 MOVB -8’\, 9S :: TYPE A BACK SLASH 
44 04401 023524 TYPE 
44 177777 MOV $-1, (SP) ;;SET THE RUBOUT KEY 
6S: DEC ;;BACKUP BY 
4a 023526 CMP R3, aSTTYIN >:STACK EMPTY? 
103434 BLO 4§ :BR IF YES 
111 023524 MOVE = (R3), 98 He TO TYPEOUT THE DELETED CHAR. 
yyy 023524 TYPE 9$ He 
uae O0S7 16 Ss a s. i366 KEY ? 
aay 1 ad 134 023524 mae #’\.9S ssBR I a BACK SLASH 
7 9° 
449 head, | beoaes i 
deo 1g tsp) ;;CLEAR THE 
1 Je 13 o0002s 7S: CMPB ss #25, (R3) *:1S CHARACTER A CTRL U? 
wes soe 023557 Bee Sour ti or ale “ye 
44S4 ipa7oe BR 1s ay 4 EER OVER 
aie 1ee713 8S: CMPB si, (R3) 31S CHARACTER A “tR™? 
1011 BNE 3$ > :BRANCH IF NO 
maid 105013 CLRB =s-« (R33) is CLEBR THE CHARACTER 
TOMO, G2asze TYPE STTYIN $TYPE THE INPUT STRING 
wed > BR s§ +360 BrcKiP ROTHER CHACTER 
446 04401 001214 4S: TYPE SQUES 2 TYPE A ’?? 
bog? BR {1s *:CLEAR THE BUFFER AND LOOP 
111 3s MOVB = (R3), 9S ECHO THE CHARACTER 
4464 1 3524 TYPE 9 
4465S 000015 CMPB 3s, (R3)+ ;;CHECK FOR RETURN 
ni BNE 2s LOOP IF NOT RETURN 
177777 CLRB = 1 (R3) *?CLEAR RETURN (THE 15) 
4468 104401 001216 TYPE SLF :: TYPE A LINE FEED 
4469 005726 TST tSP)+ CLEAN RUBOUT KEY FROM THE STACK 
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£EEE 


RPRRRE 


+P: 


Ja tou 


eae SRRSERER ISS 


££ 
Bee 


$ 


= 
R 


TS eee 


b 
Tat 
5 
o 


FRPRHRHES 
NOW LW 


ae 


f 


ROS 


pM 
tL RNTNATOR FOR ASCII CHAR. TO TYPE 


j SRESERVE 2, BYTES FOR TTY INPUT 
ie 


;;CONTROL “U" 
;;CONTROL “G” 





-SBTTL SCOPE HANDLER ROUTINE 


> JHIGHHHEHIHHHEHHHHHHEHEHEHEEHE ES Sobebet-to5-4-5-tok-5 
:#THIS ROUTINE CONTROLS THE LOOPING OF oF suBtests. IT it WILL INCREMENT 
;#AND LOAD THE TEST NUMBER(STSTNM) INTO THE REG. (DISPLAY<7:0> ) 


ite Burton OPT ione PROVIDED BY 1 THIS SE tat fe! eo 


;#SW11=1 INHIBIT ITERATIONS 
LOOP ON ERROR 
3% SCOPE ; ; SCOPE=IOT 


” CKSWR TEST FOR CHANGE IN SOFT-SWR 
040000 155314 1S: IT 881714, aSWR $3 he ON PRESENT TEST? 
I 
000004 


Ee 
i 


SW14=1 


3 
af 
ag 
gf 
te 
a 
vi 
ay 


- 


a A. re hea 


— 


i 000004 HOV (SP)+, JRERRVEC sie TORE THE ERROR VECTOR 

ee SS: CHP M4, (SP) : Hest S Bo BPTER a TIME OUT 
13 — BR ie aged | SRE test TEST 
6$:;#8888END OF CODE FOR THE non SrEReaeee 

1g 001103 2S: TSTB = SERFLG AN ERROR OCCURRED? 

14 BEQ 3$ tee IF NO 
1es737 001115 001103 CMPB SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
10101 BHI 3$ i toe iF NO 

001000 155230 BIT #81709, aSWR ; ;LOOP_ON ERROR? 

1404 BEQ 4 ‘BR IF NO 
0 001110 001106 7S: HOV ,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
1 001103 4g: CLRB  - SERFLG ZERO THE ERROR FLAG 
005037 001204 CLR STIMES *:CLEAR THE NUMBER OF ITERATIONS TO MAKE 








D10 


SEQ 0120 





i 
‘ee 
By : 
- ey : a3 J 
diehas, i qe, 
; pera! Zz anne 
Se oe cuoewcere Ba 
2 ee 
seg) & eeeeeasos €=—| (Be 
aided §) 5 se om 
ie ens Fit WS ae 
er ei & euureuis «Be 
¢ axuznueeeesinec. § is 5 Fara beppaneent § 0 nae 
Ba af § PR REESE) J 
2 
ian i 
Rs UcURy 
aE ce, 
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OZRMFA.P11 


: 


SRRRSERSESE GRADER SROERROER 


ee ee ee ee ee er 


2 GD NIG?UN ££ WMO 


FROPROO RA 


AAAS AS AAAS T CES AS 


be bm Pe be ba be Be 


SEFEGRE 
cee 


RERZRIs 


-77 14:59 


8 
RE 


ooo00o 
Pm bas pe bn pe pe 
Be 


iS 


ee 
ee 
8 


ee 
Er 


EXTENDED DRIVE TEST 


000004 o00cce 


-SBTTL TRAP 


SHH HEHEHE 


Eat sia hat 


#G0 TO THAT 


ROUTINE. 


tiGET TRA aooress 
53 HT 


331 


;;GO TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV 
MOV 
RTI 


-SBTTL TRAP 
;*#THIS TABL 
;*#BY THE ” 


SROLIN 


(SP), ~(SP) 
4(SP},2(SP) 
TABLE 
CONTAINS THE 
INSTRUCTION. 


; ;CALL=GTSUR 


Bene ss 


+ ;CALL=ROLIN 


SSAVREG ;;CALL=SAVREG 
SRESREG ;;CALL=RESREG 


;;MOVE THE PC DOWN 


;;MOVE THE PSW DOWN 


;;RESTORE THE PSW 


+ 
+ 
TRAP+ 


IGHT OF TRAP 
33P0S Ue FOR INDEXING 
O TABLE 


TTY gd ROUTI 
) TYPE OCTAL NUREER 
I 


Thal MUMGER (WITH SQ) 


TRAPSSCLONMOS) TYPE DEC 


GET SOFT-SWR SETTING 


ROUT INE 


NE 
( 


( 


MG SESE SE SE SE SE SE HE HE SE HEH EE SEE SE ES SS 9 EE SEE 
PS Te ne ati Maes 
OBTAINED IT WILL 


TYSING THE ADDRESS 


ARTING ADDRESSES OF THE ROUTINES CALLED 


SEQ 0121 


NO LEADING ZEROS) 


T 


TYPEIN STRING ROUTINE 
RESTORE 
-SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

5) HRBHHHHHHHHHHHHHHHHHHHEHHBEHHHEHHHHHHHHBHHHHEHHHHEHHHIHHHEEHHHE 


ROUTINE 


INE 


ha 





11-DZRMF-A 
A.Pil 


we 
: 
Nees 
= 
: 
a 


a 
SS 





RMO3 EXTENDED 
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Bnot 


oO 
Te 
— 
rm 


UUUE 


1 
1 364 
1 024365 


ooo 
fe ee be 
Be 


8 





DRIVE TEST 
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MACY11 30(1046) 22-JUL-77 16:19 PAGE 90 
SI LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


ii Lt coment 6 wea UNSIGNED BINARY NUMBER TO AN 


aeer ) bE CINARY NUMBER ON THE STACK 


a a 
abe 


RETURN *:ADORESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
Hoy 2S) 18, ; SAVE BINARY NUMBER 

JSR PAS a sspeeD te tee TH 

ADD (SP) : ONLY FIVE CHARACTERS 

HOV (5P)+,2(SP) +3 

.WORD 0,0 she 

DOUBLE 


LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


Pecan COWERT A 3D-BIT BINARY NUMBER 10 AN TGNED 
*#DECIMAL (ACEI Ty HUMBER THe Sich OF BINARY NUMBER MUST BE 
: #POSITIVE. 
i MOV #PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
+i JSR PC, as$0B82D 
+ RETURN ;;THE FIRST ADDRESS OF ASCIZ 
>:1S ON THE STACK 
SOB2D: SAVREG : 
MOV 2(SP),R2 Hat P fhe Bate. PO1 
MOV SSDECYL, RO :GET SECs TRING 
MOV 2(SP} 55 PUT oF 8 psciz STR STRING ON STACK 
MOV (Re)+,R1 tip BINARY 
MOV (R2)+’R2 
MOV #10. 45 ;;SET UP TO DO 10 CONVERSIONS 
MOV #STNPWR, RY ;;ADORESS OF TEN POWER 
MOV 8STNPWRS2, RS 
1$ CLR R3 ;;CLEAR PARTIAL 
SUB (R4), RI : : SUBTRACT POWER 
SBC R2 
SUB (RS) ,R2 
an ss ;;8R_IF R TO LARGE 
NC R ADD 1 TO PARTIAL 
BR es ; ;LOOP 
3S: R00 (R44, RL : RESTORE SUBTRACTED VALUE 
ADD (R4)+, 
CMP (RS)+'(RS)+ ;;MOVE TO NEXT TEN POWER 
BIS #70, RS j {CHANGE PARTIAL TO ASCII 
Bree RRR + BONE? 
4§: -WORD O 
BNE 1$ ;;BR_IF NO 
CLRB  —s-« (RO) + +: TERMINATOR 
RESREG * RESTORE REGISTERS 


SEQ 0122 





MD-11 


OZRMFA.P11 


SEESEELEELELES 
RERERRERRRR AAAS 


WONMUIL We 





G10 
16: 


MACY 1 (1046)  22-JUL-77 19 PAGE 91 
DOUBLE CENGTH BINARY 10 DECIMAL ASCII CONVERT ROUTINE SEQ 0123 
RTS PC ; ; RETURN 
STNPUR: 145000 ;;1.0€09 
35632 
160400 ;;1.0€08 
773500 ;;1.0€07 
230 
ae ;;1.0E06 
pare ;;1.0€05 
ins ;;1.0E04 
ho ;;1.0€03 
” ;; 1.002 
's ;;1.0&01 
, ;;1.0€00 
SDECVL: .BLKB ie. ;;RESERVE STORAGE FOR ASCIZ STRING 


-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

5s JHHIHHMHHHHHHHHHHHHHHHHHHHHHHHHHHIHHHHHHHHIH HEHEHE 
;THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
;#LEADING NUMBERS. 


s MOV BNUMADR,-(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 
+i JSR PC, a#SSUPRS ‘ 
RO 


SSUPRS: MOV -(SP) ;;SAVE RO 
MOV 4(SP),RO ::PICKUP THE POINTER 
18: TSTB (RO) $8 NATEOR? 
OFF iS tars: . 
#’0, (RO)+ 7:15 THIS AN ASCII “0” ? 
BEQ 1$ ;;8R IF YES | 
2s: DEC RO ; ; BACKUP 1 
MOV RO, 3S >:SAVE FOR TYPING 
TYPE 3;G0 TYPE 
3S: .WORD O *:ASCIZ POINTER GOES HERE 
MOV (SP)+,RO RESTORE RO 
MOV (SP)+) (SP) RESTORE THE STACK 
RTS PC : ? RETURN 


-SBTTL RANDOM NUMBER GENERATOR ROUT’ € 


55 MEER 2 3 3 2 8 2 A a a a a 
;RTHIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
;#WITH A RANGE OF O TO 2(+33)-1. 


iy «JSR_—_—~PC, SRAND 5 CALL THE ROUTINE 
i RETURN S RETURN HERE THE RANDOM 
z ;;NUMBER WILL BE IN 





RMO3 EXTENDED DRIVE TEST 
22-JUL-77 14:59 


D 
2 

a 
t 
oo 


SELLS SLELESESESLESSESSSSSSSSLS 
RRRRSREARE EASE ORE ARERR 





EH soup 
14 042716 000017 


MACY11 30(1046) 22-JUL-77 16:19 PAGE 92 
RANDOM NUMBER GENERATOR ROUTINE SEQ 0124 
Hd ; ; SHINUM, SLONUM 
SRAND: nov RO, -(SP) - :PUSH RO ON ST 
MOV A (ep) + PueH Ri on aT AeK 
MOV Re. -(SP) ; ; PUSH Re ON STACK 
Oy inte RY HES Fy uth nie 
io MOV * ,R2 } SET SHIFT COUNT 
: Rot RI LEROTaTE Cay NID R1 AND 
ie 
BN StONUN, RO + EOO 16 nike x 129 
ADC RI 3 CARRY 
ADD SHINUM, R1 He TO MAKE X 129 
BOO $1057, RO $3 TANT 
ADD #47401, R1 5 ADO HIGH CONSTANT 
Nov a NUM He i 
Me Rh Cg 
HOV (2p}3°RO + Pop TACK INTO 
RTS PC +? RETURN 
SHINUM: .WORD 176543 
SLONUM: :WORD 123456 


-SBTTL INTEGER DIVIDE ROUTINE 
JHBIHHHHHHHHEE HEHEHE 


Sere ae ae 


SOP ULM Stat SO THAT THE REMAINDER 


;* ALL: 

_ D -( THE HI V T « 172 
iS ORGY. RR GHCBYW BENS, <tse)i* ad PaaGe As THe DIVISOR 

3% MOV IVISOR, -(SP) 

Hf JSR PC, SDIV 

I RETURN ;;QUOTIENT & REMAINDER ARE ON THE STACK 
:# “V"=0 IMPLIES NO ERROR 

;* “V"=1 IMPLIES OCCURRED 

3% “c"=0 IVIDE OVERFLOW OCCURRED 

# “Cs ATTEMPTED TO DIVIDE BY ZERO 

;# 

iH STACK NO ERROR OVERFLOW DIVIDE BY ZERO 

1+ TOP REMAINDER ALL ZEROS ALL ONES 

3% +2 QUOTIENT ALL ZEROS ALL ONES 


$DIV: 
TRAP ;PUSH OLD PSW AND PC ON STAC 
BIC #17, (SP) STRIP AWAY CONDITION CoES 





ORT? iss Sect SEQ 0125 






MD-11-DZRMF-A IVE TEST MACY11 30(1 
OZRMFA. - EX tre INTEGER DIV 
4e06 01004 MOV RO, -(3P) ;;PUSH RO ON STACK 
oe fees tie my Gusctes} BY ET 
p rl MOV Ra 5 (5P) ; PUSH R ON STACK si 
ut 000021 cht #17. .-(SP) tn THE TRERAT ION COUNTER 
wel 000024 HOV e4(SP), RL ::PICKUP THE DIVIDEND 
aa —— BPL I . 1 CHECK TE THE SIGN 
Ge poe eon” peta fre Uae 
R +3 
: soca etn te OS. cos ae ME nay 
4e2 BT es i Eg A NO-NO 
ees qpomgg cooows BSc iB mn pat 
nS al, TO ALL ONES 
ieee 2S: ine ggsP) siEXIT TRACK OF DIVISORS SIGN 
3s: Neg ;;NEGATE THE ORIGINAL NUMBER 
Bs ; EB 6$ + FORMING QUOTIENT 
cs: ROL - j POSITION MSB’S 
»R3 D 
be # es ey sana 
6S: ROL Ri’ T ROOTIENT Bir BIT ERS SuERS 
rey DEC (SP) 1 euer 
BNE cs 3 3BR IF NO 
B33 BP. Bg {toe IF NO nO. 
ui oo0002 000014 BIS #2, 14(SP) BR “y" IN RETURN ST STATUS i WORD 
dade 7s: NOV ROAR Chey RERRIMOER INTO, Into ober enr 
hs aa é TSI (SP) Hy, SEE INOGR SIGN CORRECTION NEEDED? 
dew NEG RO Heir INDER 
000001 CLRB =: (SP) +? CLEAR SIGN 
DEC (SP) isBUT DON’T FORGET QUOTIENT 
9 TST (SP)+ > QUO TIENT SIGN CORRECTION NEEDED? 
p BEQ 10S >? BR of NO 
o00020 10s: MOY «RL 20(SP) SOOT SUOTTENT. AND 
000016 MOV RO; 16(SP) + REMat T 
MOV (36+, 83 +: POP STACK NTO R3 
+ MOV (SP)+’ POP STACK INTO Re 
my (eimai Sree Eire 
i228 i po0002 MOV (SP)+) 2(SP) +3SE TURN CONDITION CODES 
RTI + RETURN 
4861 .SBTTL ##% PROGRAM SUBROUTINES ### 


J10 


MD-11-DZRMF-A RMO3 ay tae DRIVE TEST MACY11 30(1046) ceriee aa 16:19 PAGE 94 








DZRMFA.P11  22-JUL-77 14:59 ##% PROGRAM SUBROUTINES ### SEQ 0126 
pes ;SET “LPTAVL” TO THE PROPER STATE. 
4864 : LPTAVL = O IF NO LINE PRINTER AVAILABLE 
ee j GPTAVL = 1 IF LINE PRINTER IS AVAILABLE 
ISR oy PC, J#LP. AVL 
uP - AVL: CLR a i START WITH No NTER AVAIABLE 
Wert MOV 18 SRERRVEC : SETUP NEOUT VECTOR 
CLR JSERRVEC+2 
TST SLPS 31S THERE A LINE PRINTER? 
INC gon YES--SET AVAILABLE SWITCH 
1$: CMP (SP)+, (SP)+ -NO--POP STACK 
be 25: MOV SERRVEC+2, JHERRVEC :RESTORE TIMEOUT VECTOR 
4878 RTS PC = RETURN 
4880 sTHIS ROUTINE WILL DETERMINE IF THERE IS A CLOCK ON THE SYSTEM 
4g81 + AND IF THERE I$ cl SETUP THE VECTOR AND START THE CLOCK 
"CLKSTA” WILL INDICATE THE CLOCK TYPE 
bP sep 
4885 sels KWLI-L 
4886 THIS ROUTINE WILL ALSO SETUP “TICKMS” (TIME 
4887 *PER CLOCK TICK IN MILLISECONDS) AND “TICKUS™ 
4888 *(TIME PER CLOCK TICK IN MICROSECONDS) AS 
4889 PER SWOO. 
4890 : == 60HZ 
489 SWOO0=1 -- SOHZ 
jCALL ck PC, NST. CLK 
Wea : RETURN : 
010146 ST.CLK: MOV R1,-(SP) SAVE R1 
012701 oo0006 MOV C+2,R1  ;SAVE AND SETUP TIMEOUT VECTOR 
1 11146 MOV (RD, -(SP} 
1 il CLR (R1) LEVEL O 
pe5 108 Late MOV -(R1),-(SP) 
0251 1 025140 MOV #1$, (Rl) ;GO TO 1$ ON TIMEOUT 
025114 7? 001244 CLR CLKSTA SET CLOCK STATUS TO NO CLOCK 
1 4254 TST :15 A KW11-P? 
1 1 oo1244 MOV a1 ,clKSTA :¥ES--SET STATUS TO KW11-P 
1 JSR ST.PCLK ‘START THE KW11-P 
4306 1 14 BR GO TO EXIT 
1 1S: CMP (SP)+, (SP)+ ‘CLEAN UP THE STACK 
4908 1 12711 025166 MOV #25, (R1) :IF TIMEOUT GO TO 2S 
“31 { 137599 01244 mw ¢ KS STA NTE StAtUs TO KWLI-L 
a i 4 26504 JSR »ST.L i START ft KW11-L 
491 65156 Ge2beb 25 CMP (SP)+, (SP)+ *CLEAN UP THE STACK 
4914 1 lebe2l 38: MOV (SP)+)(R1)+ *RESTORE THE TIMEOUT VECTOR 
Wal 065172 Olebel MOV (SP)+?(R1)+ 
1 174 012601 MOV (SP)+'R RESTORE Rl 
4917 025176 032737 000100 o01220 BIT #SWO06;38C.SWR  ;5OHZ OR 6OHZ? 








MO-11-DZRMF-A 
OZRMFA.P11 


4918 
4919 


stesso oeebaes 





EXTENDED DRIVE TEST 


001407 
012737 


1 


aad GSES ESE 


Cooo0oo0o 

Yet eo Ps ee Pe bs bo pee 
_ 

= & 


— 
oO 
to 


Sa 


— 
oO 
_— 
tT 


RMO3 
22-JUL-77 14:59 


001234 
001236 


001220 


MACY11 30(1046) 
#%#% PROGRAM 
BEQ 
oy 
4§: MOV 
MOV 
SS: RTS 
ST.PCLK: 
BIT 
ny 
MOV 
MOV 
1§ RTS 
ST.LCLK: 
BNE 
MOV 
MOV 
MOV 
1S: RTS 
SRVCLK: MOV 
JSR 
RTI 


K10 


22-JUL-77 16:19 PAGE 95 
INES ## 
TI TIME PER 
Sit Rae AT PO 
$16, a8TICKMS —;SETUP TIME PER 
#16666. ,d8TICKUS ; TICK FOR 60HZ 
PC ; RETURN 
#SWOS,98C.SWR  ;ALLOW SOFTWARE TIMEOUTS? 
1$ : NO--BRANCH 
eSRYCLK, BPKV ‘SETUP THE KW11-P VECTOR 
el sCOUNT ONE TICK 
#115, aPKCS :"INT.EN.",COUNT DOWN”, “MODE 1 (REPEAT)”, 
sebfte PRES”, NO AND “RUN* 
PC 
»OHC.SHR TWARE TIMEOUTS? 
SSRVCLK,OLKV ;SETUP THE KW11-L VECTOR 
sate 
#100, aLKS START THE KWLI-L 
PC * RETURN 


QSTICKMS,-(SP) ;TIME PER TICK IN MILLISECONDS 
, a8RPTAR : COUNT TIME 
RETURN AFTER INTERRUPT 


UE OF BITOO IN ’C.SWR’ IS 


SrA ROUTINE 2 SETS UP eres PARAMETER VALUES WHEN THE PROGRAM IS 
TED CHANGED. 


JSR 


3 RETURN 


LODFLT: 


1S: 


Mamteseoteseeeesees 


Fapetet A taht at peta 
eaeae reo 
a Bags 
rd 3. 


be 
wa 





o-~ 
ass 
+90 


£ 


H Teath Fa) 
bs 
4 
S 


CSR 516 B 


SEQ 0127 
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001102 


01536 
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001254 
001504 


i One ae 
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MACY11 30(1046) 22-JUL-77. 16:19 PAGE % 
#%% PROGRAM SUBROUTINES ##4 


et Pees iS CS. MMT 
§-<256. #32. >, TRCKWC jHORD FOR A 16 BIT TRACK 


ae 
iN 
= 
nah 


(R1) 
8s 
#BIT10,9(R1)+ 


9 
9 
s 
5 : 
;BR IF 
Fea) Re ; TABLE ADDRESS 
Re), -[SP) BLLOCATION BITS neh 
611,83 PARCPETERS (MAXIMUM) BEFORE ‘LS 
’ 
: 
9 
; 


TER TABLE ADDRESS 


— 
“az 
IE 
#a 
5 
8 


223 iomeratas 


g BR 
PR +22, (R2) ae a ake FOR MODE USED 
; CONT 
(SP)+,R3 ;;POP STACK INTO R3 
(SP)+’R2 i BOP STACK INTO Re 
(SP)+’RI :POP STACK INTO RI 
(SP)+)RO POP STACK INTO RO 
RTS PC * RETURN 


;THIS ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST. 


’ 
* CALL 
: MOV STESTNUM, STSTNM ;LOAD THE TEST NUMBER 
: JSR PC, LODPRA 
: RETURN 
LODPRM: 
MOV R1,-(SP) ;;PUSH R1 ON STACK 
MOV Re, -(SP) PUSH Re ON STACK 
MOV R3,-(SP) + PUSH oN STACK 
MOV RY; -(SP) +:PUSH R4Y ON STACK 
CLR RY : RY 
MOVB = STSTNM, R4 : TEST NUMBER 
ASL RY -SETUP TO SS WORDS 
YG" tothe bet ame OOS 
Rey iRartg. Seed es. A COUNTER 
MOV (R1)+, tR2)+ t PRANNETER a FIER 
1S: BSR PRM ae tat USED IN THE TEST ? 
HOV {his (R2)+ . é VALUE 
2s: CLR (Re)+ fret THE UNUSED PARAMETER LOCATION 


SEQ 0128 





SEQ 0129 


22-JUL-77 16:19 PAGE 97 
FINS 
BR 
ibe TF 
ean 
I 
i SHIFT 
: F 
ied 
ef 
g 
ce 
i Spop 
; POP 
+ AETURR 
HEADER AND DA 
DEPENDING ON 
,a8C. SHR iD0.E 
ae0Pe.B+2 1 = 


Sos . : 
pane Ar] 
he re i " 
Se per tr let 
= © i 5 P 2 - 
BG = aoe < gouz 58 . = 5 : 
EE at ee = E geee ee a Ss ie - 
g 2 fs 8 Ss OS : 
| = 
2 


.B+2 ;SETUP FOR SEEK COMMAND 


C+e 
RMO3 
CURS 


M10 


* ae0PB. C+2 
#0PB 
#0PB 
THE 
ERROR OC 
TH 
A 
A+16 
SESCAPE 


a 
~ 
= 9 8 p +++ 


odeetinsBeatodee elutuiars :: S Bt 


Sans 


+ Fe ~ 
ehepervemetusants BSBBL Bg = SRPSEPeE = coy Saeed 


#%% PROGRAM SUBROUTINES ### 
2 DPB.C+e, 
1 . 
#READHD F 
sREADHD : 
: Geeex,a 
#SEEK,@ 
PC 
WILL CALL 
IF AN 
DPB” W 
RO,@ 


1s 

2s 

; 

’ 

; 

! 
CALL.A: 
1s 


Re Be Ba 


88 88 ay 2 
= Ee 
=+ 53 > S 
Sassgee Ss 
YC ur ' 
——o COCO OO Cis — RE tafe i 


026132 001206 
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OZRMFA.P11 


N10 
PO-11-O2RAF-A AMOS EXTENDED ORIVE TEST MACYI1 30(10¥6) 22-JUL-77 “16:19 PAGE 98 
OZRNFA.PII # PROGRAM SUBROUTINES #88 





4 x4 54 4¢ +44 + ~% «¢ ~¢ 44 ot ae ¢ 4 5¢ +~- 
wy aye 4 TY A YE ohigh'y wt u X, + A’y 
* pe Oe S28 Se es cd + + 
5 ; Ay'A ; s+ A 
— a —-200— 
ee 
— a 
& aS 


22-JUL-77 14:89 


026064 013737 O04116 


ae 
114 
1 


ae 


Bo a6 


001270 


004220 


000173 


001220 


SEQ 0130 
au0r8. A+12,98CYL.0S ;CYLINOER 


Pee hae iE INDICATOR ADDRESS 
iREPORY PROPER ERROR 
game 
eae Pade U'SGP, ABorT, OR CONTINUE 
gs sr BAMAAD ISA 6 56 5 oh EL HEADER CYLINDER, TRACK. 


iA SECTOR) READ IS CHECKED FOR VALIDITY. 


al 


a 
: RO, @8CALL.B 
; URN 
CALL.B: oF gasesc be ESCAPE AOORESS 
1S: on Spe oi : DONE? 
J o. i RO BRANCH 
«(Of OR OOAPE 10" '9S ON ERROR 
Nov sues. +12, avon BS sCYLI 
HOVE F} e: eld gah asSEC. Be + Tee 
HOV Sire Bei: 1 Fa tisventon INDICATOR ADDRESS 
isn PE eeR NOK Reet Propen ERROR 
ERROR 41 
ERROR 42 ‘panty PARITY ERROR 
ERROR 
ERROR RM. REG+RMERL a baa? 
BEQ 2s I 
BIT #1C100, »RM. REGHMER A ak If ONLY *HCE’ SET 
BH ER DPB.8+16,-(SP) 
JSR PC, LOP. CK Stars Maem LOOP, ABORT, OR CONTINUE 
BR *CHECK FOR STALL 
ys: CMPB  98DPB.B+2, #READHD :DOING IMPLIED SEEKS? 
ao , QOVERIFY ee CHECK THE DATA 
OPB.B+10 
BR 6S ;ERROR DURING VERIFY ; 
Ss: BIT $OHI4, 28C. SHR ish RL CH 


Bll 


att ny " A a Fad aoe i TEST ae 30( 1046) Ceree ces 16:19 PAGE 99 


SEQ 0131 


S--CALL STALL ROUTINE 
ALL TIME POINTER 


; RETURN 


ist 
;THIS ROUTINE IS THE SAME AS “CALL.B” EXCEPT FOR THE DPB USED. 


Ro, 


ee 


& Oo 
ap oe 





pa 


1S: 


i = 
: 5 8 
abe OF fies § 
a en eee 
a ar: 7: ays 25 
e man ee 
byge! oot BE 
ee ee a? = ae: 
Qo 
gets se & : % 
v9 5 he ial 
S33e bE sie gz 
eri: BS Shee 2 
sishvt-vorentevEonind sducce 
gBBEPERSEEeEDgLgesn, Fen taney 
BERS = &§ 
8888 8 8 Ss 
an eae 
eeeeey «OCB aS aR OES 


obs 


SEES ES ae 


AS_“CALL.A” EXCEPT FOR 
CT IS EXAMINED. IF E 


RO, d#ORVCAL 





PRT ATOR ADDRESS 


sCOMMAND=WRITE CHECK DATA 


THE WRITE CHECK 


i Serle oR A WRITE 
ADDRESS 
00 THE WRITE 


‘CALL RMO3 ORIVER 
, aSWR 
ITE, SRO TAOPBHE 
SeRhas 


sO ee ADDRESS 
; WRITE CHECK ERROR FLAG 


VINHIBIT MRITES? 


YE 
Nd 
;06 


Cll 
D, aspTapPa+e 


,@eRM.REG+IO ; 1S “WE"=1? 
2 


eas 


_/ 
a8 Gea Soorulints te $4 Bee i woryl 3 


ee EREEaRSEEEEEEvEnE cour scpetdengleeeeen's 


: 


ices 


tae 
sa 
an 


DRVCAL : 


dizer gi 12 a! : BeeEe 
nee 
se ages 
cet me NOL aC RRR 
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; 
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i 
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MACY11 30(1046) 22-JUL-77 16:19 PAGE 101 
###% PROGRAM SUBROUTINES ### SEQ 0133 


SS: TST aD TADPB+16 


iNOe=L 
7 wmca HS BRMCULTE BB 


6S: Te DE0TAOPB+16 ;DONE? on 
- BPL 10S Sie wa IF clio ERROR Ape 
: HOV sas" Seccape He TO as ON ERROR 
Ye fetes fac Bs ieee 
nove ear ahevtee NOICATOR ADDRESS 
fe Aueeeinee Rae btgarey Hes 
ERROR 41 ; are 
ERROR 44 *NON-170_ ERROR 
ERROR 46 FATAL WRITE CHECK 
8S: MOV DTADPB+ 16, ~(SP) iST8 
JSR CK : L ABORT, OR CONTINUE 
12S: cH OsERR.CT, a4SERFLC GO TO NEXT TEST? 
9s: MOV JSBYPASS, RO *YES--GET EXIT ADDRESS 
10$: BIT eSH14, 8C. SHR ;STALL? 
kis. @aSTALL *YES--CALL STALL ROUTINE 
.WORD STALL2 STALL TIME POINTER 


118: RTS RO 
;THIS SUBROUTINE CHECK FOR LOOP, ABORT, OR CONTINUE SWITCHES AFTER 


j ERRORS 41, 42, 43, 44, 45, AND 46 
: MOV DTA+16,-(SP)  ;STATUS WORD FROM OPB IN USE 
: JSR PC, LOP: CK 
: RETURN 
LOP.CK: BIT #SW9, ISWR ;LOOF_ON ERROR 
IMP 48 ERR tt aaT AT THE LOOP ADDRESS 
pee ce seisiurerrigterri +B ia ? ahh tt ) CK ERROR TYPE 
ES : : “Ba i Bee oat Pe ie und SABED OR 
jPERS OR FATAL MASSBUS PARITY 
JMP SEOP : NA I 
2s: Hoy (SP)+, (SP) ADJUST RETURN 


;THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH 
;TO THE PROPER ERROR CALL. THE INDEX IS FORMED BY EXAMINING 
; THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB. 

; INDEX STATUS/ERROR 





OZeeALPLT cody 1a:se SUR ith Tsi9 ore seo 0134 


14!B1T13!B1TO8!BITO1 
it; if O!B1T0e 


 ] 
OSiBIt *<BITOS & COMMAND=NON-1/0> 
<BITO9 & COMMAND=1/0> 


og ot Ti 5 BOO STATUS/ERROR INDICATOR 
’ 


PINDEX IS ON THE STACK 





PC 
RETURN 
ERINDX: RO, -(SP) : RO 
oo0008 sy Rl, =(8) iSive A INDICATOR POINTER 
001260 MOV (= ,asSVSTAT  ;SAVE te et yo INDICATOR 
CLR Ri START I AT ZERO 
BIT (PC)+, (RO) : OF 0? 
gligRO B1T13!61TOe!61T0! 
BIT ( 2+, (RO) ieee Barri ERROR OR PORT REQUEST INDEX (2)? 
igh BIT11!BIT1O!BI1TOe 
BIT (Pos, (A) “FORM UNSAFE INDEX (4)? 
. WORD BI IMEBITI2¢B1TO4 
+ 5 / ; 
Bt (PC)+, (RO) iE eto ERROR INDEX (6)? 
.WORD  1TOS!B1TO3 
BNE 2 ; YES--BRANCH 
BIT (PC)+, (RO) *FORM 1/0 ERROR INDEX (10)? 
. WORD B1T06 i 
ant (PC)+, (RO) SCOPTWERE. TIMEOUT? 
.WORD  81T09 
BEQ S$ ;NO--FORM INDEX OF 0 
000150 177762 CMPB ©=«-«B150,-16(RO) 3 YES--1/0? 
BGT es : 
1S: INC Rl : RROR 
25: INC Ri : RROR 
3: INC Ri : 
4§: I Rl 5 
5s: ASL Ri : 
000006 MOV Ri, 6(SP) Ri 
MOV (SP)+,R1 :R 
MOV (SP)+'RO : 
RTS PC ; 
sTHIS ROUTINE WILL PROVIDE A STALL 
: OF TIME IF BIT13 OF C.SWR = 0 OR 
IF BIT 13 OF C.SWR = 1. 
*STALL1 CONTAINS SPECIFIED TIME FOR TESTS 0 - 7, AND STALL2 
j CONTAINS THE TIME FOR TESTS 16-21. 
: JSR RO, J8STALL 
2ape : TIME POINTER ;WHERE TO FIND THE STALL TIME 
p64 364 013046 STALL: MOV @(RO)+,-(SP)  ;PICKUP STALL TIME 
en 032737 020000 001220 BIT #SW13,08C.SWR  ;USE A RANDOM TIME? 
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OZRMFA.P1L  22-JUL-77 14:59 SUBROUTINES ### SEQ 0135 
001406 . eg 1S ;NO--BRANCH 
ta: eat feve ae a0 7b) Peay ) ro 2 it ire 
feria ibe7ee 000001 000002 3: ED #1,2(SP) feat reSurReD? 


poe 1 MILLISECOND 
O KILL TIME 


icast IF MORE COUNTS NEEDED 
;CLEAN OFF THE STACK 
EXIT 


4§: 


ete TArs STALE fs"RecuTRED 10 COMPENSATE FOR THe “ACCESS READY” DELAY 


We a RMO3. THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED SEEK TIMES. 
PC, d8TWOMS 


ES 

£ 
at, See 
HESLB=AS 
; 38 
¢ & 


177776 TWOMS: aaPs,.-(SP) 
8<S#32. >, a8PS ere Te SR aoe TO a. 
SPKV = (SP) fm aouress ADDRESS 


+ 
Sa ane 
#101, 8PKCS BRT THE | el 


TF 
(SP)+, OPKV ie CLOCK OF Reo 


(SP)+, a9 OLD PROCESSOR STATUS 


oss 
3 
8 


SSEESE 
= 
% 


RTS 
1 ROUTINE TO SOFTWARE COMPARE een ON IMPLIED SEEKS 
JSR RO, 8VERIFY 
POINTER ;ADDRESS OF DPB+10 (SECTOR NUMBER) 
3 
010146 VERIFY RL >(SP) ;SAVE R1 
1 + Ri OF DPB+10 


Se URRSER EIN Gd TORN ARRERER IS Sa IA ae 


QsBUFFER iGeT FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER 
sis00b0 3 2(R1) sEVLI NUMBER OK? 


SBUFFER+2, (R1) : YES--HOW ABOUT TRACK/SECTOR? 


3 
BQUQ2SS AB 


tebe rhe tek 


Bow Noenecwrw-o 


ee ee ee 
it : 001266 HOV ah ae “RD ;AND SECTOR 
Lt ies MOVB (RI) +: 
1 1270 MOV (R1) seevi os 
01 027626 001206 MOV #25, SESCAPE -ESCAPE TO 2$ ON ERROR 


4 
w 
4 


Snes 
Zeger ayes 
mF 


-(RO) MAKE I IT TEST PC+4 





Gl 
TEST Y -JUL- H 
x oe ae ES we 4 10%) i ote a. 16:19 PAGE 104 $50 01% 


: 
: 
= 





vite: Nie 004106 25 ; te caL.ppB.At2 irone RECA IBRAT CODE 
SereSs ratiee ; 1B Oe LOMO AE CUTE THE. COMMEND 
=i: . Fi AG 
tere ae pend cseenes er fo oe $000 On ERROR? 
Oe7b5H 900177 151230 IMP QSLPERR *RETURN T LOOP ADDRESS 
haere ADD #2, RO TARE HENT TURN ADDRESS 
Be7eee Booeon sO Gia speeyore fu 
RTS sEXIT 
33 ;THIS ROUTINE WILL ORM A “MASSBUS” INIT. FOLLOWED BY 
EA 7A “RECALIBRATE” ON DRIVE UNDER fest 
‘NOTE: THIS ROUTINE DESTROYS R1 AND R4 
2 % - JSR RO, SRCHOO D0 A MASSBUS INIT. AND RECAL 
: RETURNI *RETURN HERE IF NO ERROR 
: RETURN2 RETURN HERE ON ERROR 
17777% SRCHOO: ae ai ; INCASE OF ERROR (TYPTIM) 
De O403e0 005612 MOV sISR SRMVEC ; SETUP INTERRUPT VECTOR 
000010 HOV arene ‘aReS2(R4) 6 
? Gon 74 CLR aa0T 10 ; 
176 CLR as0T 1 : 
000107 004166 MOV SRECAL , JD TADPB+2 
001206 CLR a NO 
036236 ISR RO, J#RMOS : 
BROPe us . 
004202 1s Ts DTROPB+16 : 
030034 001206 Ay OE or oe *aN Eran 
176 001270 MOV sot 5 ie, acy: 
175 001274 MOVB #07 11; a8TRK. 
174 OOle7e OVB oxo 10; a8SEC. 
oo4202 MOV +16,-(SP) ; 
130% 027246 JSR PC, JSERINDX Fi 
13002 ADD (SP)+,PC : 
ERROR 41 : 
00; ERROR  4e : PARITY ERROR 
003 ERROR 4a i NONeT 0 
300: ERROR 45 i170 ERROR 
1300; 2s: TST (RO)+ : FOR ERROR EXIT 
S3 soon 000006 3s: FR  RROACRY) te Ack AND SECTOR = 0 
71 © 000034 ; CLR RMDC(R4) : CYLINDER 5 2 
Bie 4S: RTS RO * RETURN 
ai THIS IS AN RTI WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST 
Sure 0300S2 00002 DORTI: RTI RETURN FROM INTERRUPT 
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Pll 22-JUL-77 14:59 % PROGRAM SUBROUTINES ## SEQ 0137 
Tuts ROUTINE WILL INITIALIZE THE TIMERS USED BY THE “TIMING ROUTI ES 
: ISR PC, J8STRTMR 
: RE 
o441 STRTMR: SAVREG e. 
ToT 001276 MOV 8TIM.UP,RO se DeT AT TIM.UP (MINIMUM) 
12701 001332 MOV STIM.PT,R1 :STOP_AT TIM.PT 
1S: CLR (RO)+ iCLED 
1 CMP RO, Ri 
BLO 1$ tO BRANCH 
1s) +7 01276 YS RRBT ETS SeTIM per nih TER TINE TO MAXIMUM 
*: % e 
I ibe 15535 899999 pert NOV a a POSITIVE NUMBER 
030114 104413 RESREG : RESTORE RO-RS 
030116 000207 RTS PC 
sTHIS ROUTINE WILL ADD THE geese TINE TO THE AVERAGE COUNTER AND 
*MAINTAIN THE MINIMUM AND MAXIMUM TIMES. 
:NOTE: THIS ROUTINE DESTROYS Re 
: MOV sTP.R3 ;PARAMETER POINTER 
: MOV ——- FLAG, RS 3F 
: *FLAG=-1=COUNT DOWN 
: ISR oy PC, a8COUNT i 
g12702 001276 COUNT: MOV #TIM.UP, Re ;PICKUP THE “UP” POINTER 
TST RS ;USE IT? 
bo140e BEQ 1$ ; YES--BRANCH 
1 001314 MOV 8TIM.DN,Re *NO--PICKUP “DOWN” POINTER 
feos 151244 1S CMP @PKC, (R2)+ *LESS THAN PREVIOUS LOW? 
151236 177776 BS Soxc,-2(R2) IT 
p77 151230 000004 2s CHP BPKC, (RS) ;LESS THAN THE LOW LIMIT? 
NC (R2) i YES- IT 
3S: We ERS} SAB VANES THE POINTER 
151214 cH PKC, (R2)+ iGRER THAN PREVIOUS HIGH? 
17762 151206 177776 MOV aPKC, =2(R2) tYES--SAVE IT IT 
151200 000006 4S: chp PKC, 61 *6( *GREATER THAN THE HIGH LIMIT? 
INC (R2) > YES--COUNT IT 
SS: TST (Ro)+ ADVANCE THE POINTER 
151164 ADD aPKC, (R2)+ ADD THIS COUNT TO THE TOTAL 
INC (Re) Ful THIS READING 
e/a 057004 001332 CHP SGUFFER +<48B814.>, 0 SaTIN PT PT ; IS COUNT? 
7777 151144 151070 MOV OPKC STIM.PT i; No ~orenich SAVE IT THEN 
ABdaae 001332 #2, QbTIM.PT : THE POINTER 





ADD 
6S: RTS PC’ ; RETURN 


THIS ROUTINE IS USED TO TYPE THE MINI 
:MAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS 
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4% PROGRAM SUBROUTINES #4 


;1T WILL ALSO CHECK THE TIMES TO ENSURE 


ARE WITH 


Te THIS ROUTI 
; JSR 





IN 


RO, d8TYPTIM 


T-O «7 
<= 4 

vo 

2 = 

— 


Fe 


Oye es IF_NOT FLAG THE BAD TIMES. 
YS R2-RS 


;GO REPORT THE TIMES 
;POINT TO THE PROPER TABLE 


;ADDRESS OF ASCIZ MESSAGE NUMBER 


1 
i Ss 1Z NUMBER 2 
cate 


Ula ive RePoRis? 
na 


; ME & GOES HERE 
OTB BAY COUNTS OCCURS 
Tee 

, “PUT (R4)+ ON THE STACK 


CHANGE (R4)+ TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 


BELOW THE LOW LIMIT 


: 
PERS, 
NO- 


sag 2th tet STI 
HBP GI THOUT LEADING sEROS 
:"BELOW THE MINIMUM OF” 

-PUT R3 ON THE STACK 
sCHANGE R3 TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 

ON 


“MAX=" 
;PUT (R4)+ 


tr4)+ TO DEC ang 
+ YE LI THOUT Ne 

;ANY SEEKS ABOVE THE HIGH LIMIT 
3 

: YES 
a 
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22-JUL-77 14:89 % PROGRAM SUBROUTINES ### 


SEQ 0139 


TYPE ,MSGOUS 
4g; TYPE MSGAVG ;"AVG=" 

MOV R4)+, =(SP) FORM THE AVERAGE 

MOV CR) +, -($P) 

MOV (R4)4°-(SP) 

ISR PC, as$DIV 

(gP)+ $13 THE RENRINOER OVER HALF? 

a INC (SP) *YES--ROUND UP 

J TO aSCIz 

J Be aeSeueRs ier GrTmoutL CEABING 

TYPE _, MSGOUS 

TYPE MSG. SP 

MOV *2(R4) .-(SP) PUT -2(R4) ON THE STACK 

JSR PC, a#$S82D CHANGE -2(R4) TO DECIMAL ASCIZ 

JSR PC’ 38SSUPRS : WITHOUT LEADING ZEROS 

TYPE MSGNUM - 

MOV RS, 2S : ME POINTER 

BEQ 7$ IF NONE EXIT 

cLR Re NO MORE THAN 2 
6S: TYPE MSGNON 

RTS RO EXIT 
;THIS SUBROUTINE WILL INC! 
"NUMBER (R2) BY THE AMOUNT SPECIFIED BY 'IT’ 
: JSR RO, J#INCTRK 
: RETURN ; TRACK NUMBER GREATER THAN LTIS 
: RETURN2 TRACK NUMBER INCREMENTED 
INCTRK: CMP R2, aeLT ;LAST TRACK COMPLETED? 

BEQ 2s :YES--EXIT 

ADD aeIT, R2 : TE TRAC 

CMP Re, aeLT > TRACK TO BIG? 

BLE 1§ :NO--EXI 

MOV aaLT, Re > YES- TRACK TO LAST TRACK 
1$: TST (RO)+ ;ADJUST FOR RETURN 2 
2s: RTS RO * RETURN 
:THIS SUBROUTINE WILL INCREMENT THE CYLINDER 
j NUMBE R (Rl) BY THE AMOUNT SPECIFIED BY Ic’. 
: ISR RO, 98INCCYL 
: TURNI ;CYLINDER NUMBER GREATER THAN LC1S 
: RETURN2 *CYLINDER NUMBER INCREMENTED 
INCCYL: CMP R1,aaLc sLAST CYLINDER COMPLETED? 

BEQ 2S ; YES-EXIT 

ADD d#IC, RI *NO--UPDATE CYLINDER 

CHP Ri , aac i CYLINDER TO BIG? 

MOV JaLC,R1 MES ceeT CYLINDER TO LAST CYLINDER 
1S TST (RO)+ *ADJUST FOR RETURN 2 





? 
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##% PROGRAM SUBROUTINES #i# 


es: RTS RO ; RETURN 
we ROUTINE DECREMENTS THE SECTOR ADDRESS. 


; CLR -(SP) ; THE STACK 
; PC, DECSEC : INE ENTRY 
; RETURN 
DECSEC: HOVE RM REG+RMDA, 2(SP) “PUT THE SECTOR ADDRESS ON THE STACK 
BPL ‘BR IF NOT TION NEEDED 
MOV beunT#22. ,2(SP)' ROYERFLOM OCCURED. FORCE TO MAXIMUM ADDRESS 
1S: RTS PC ; RETURN 
;THIS SUBROUTINE IS USED TO FILL THE DATA BUFFER as 
‘WITH ADDRESSES FROM O TO 21 WITH EACH ADDRESS 
‘BEING STORED IN 256 CONSECUTIVE LOCATIONS 
: JSR PC, a8F ILBUF 
s 
FI : G ° - 
— age RO + PPM TB cx" Rooress 
MOV #BUFFER, RI START FILLING HERE 
1$ MOV #256. DO 256 WORDS 
MOV RO, (Ri) + : STORE 
pe OS ieee 
Pic S«*RD NO UPDATE DISK ADDRESS 
CMP PRMLMT+22,RO ;DONE? 
BHIS 15 ;NO--BRANCH 
RE "RESTORE RO - RS 
RTS PC * RETURN 


;THIS ROUTINE WILL CLEAR THE BUFFER BY 
3 Nata EACH WORD TO “177400”. 


: JSR RO, 2#CLRBUF 
: RETURN 
CLRBUF: SAVREG : - RS 
MOV #177400, R1 : Fe FILL BUFFER WITH 
MOV #BUFFER. Re FIRST ADDRESS OF BUFFER 
MOV aGUFFER! S12 #22')>.R3 ;LAST ROORESS+2. OF BUFFER 
1S: MOV R1, (Re)+ FILL 1, 9,---249,...56e5 
MOV R1, (RO)+ *FILL 2,10,...250,...5626 
MOV R1, (Ro)+ *FILL 412... .25e,... 
MOV R1, (Re)+ 3F LL S13, ..-€93,---90e9 
MOV RL; (Ro)+ "FILL WORDS 7,15,...055,... 5631 
MOV R1, (Ro)+ *FILL WORDS 8,16,...256,...5632 
CMP R2;R3 * DONE ? 
0 1$ ;NO 
SREG *RESTORE RO - RS 
RTS RO RETURN FROM CALL 


SEQ 0140 





Lil 
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OZRMFA.P1i1 22-JUL-77 14:59 ##% PROGRAM SUBROUTINES ### SEQ 0141 


; THIS ROUTINE IS USED TO CHECK Le DATA BUFFER 
ne REBEL ANY Eee Bee™ 


JSR RO, d8CKSCTR 
RETURN 


Saat 





























' CKSCTR: G . - RS 
{ at te #4, SP i RECERVE TEMP. STORAGE AREA 
} 031 CLR ~ a FIRST SECTOR 
fl HOV ; ;FIRST ADORESS OF DATA BUFFER 
ic 
ert 031 1S: MOV Pe me ;LOOP NT Cigal = 
i 331 ne MOV 1ST ADDRESS OF THIS SECTORS DATA 
et a3 ; cw os ones ; as 
Bt SNE Rg (RS)+ ORD IF BAD 
at SNE py (+ ros 4 IF BAD 
Bat BNE pated Te ar ano 
si SNE gr (Ra)* : A IF BAD 
eres 031 CHP R1, (R3)+ MORO 6 pile 
sf CHP R1, (R3)+ + FORD D9 oad 
pat ce R1, (R3)+ + FORD ‘4 oF aon 
pio CHP R1, (R3)+ + FORD. 9 oreo 
Bt eR 
gaii0 cH R1, (R3)+ + WORD Me ol 
aii CMP R1, (R3)+ + FORD tte 
Bailie eNp (R3)+ fi lai 
att BNE AY ;BRANCH IF BAD 
ae CHP R1, (R3)+ * WORD 4 ae 
Balt cHP R1, (R3)+ + FORD 1s ol 
ce Git aa a 
0311 DEC R2 ‘FINI WITH THIS SECTORS DATA? 
eT Bie tCOS NO BRANCH 
0311 001000 3S ADD #512. , (SP) *YES--FIRST ADDRESS OF NEXT SECTOR 
D311 1 INC MOVE. TO NEXT SECTOR 
He ae 0 001630 CHP PRMLMT #22, RI 
0311 ooo002 4§ TST 2(SP) oe OCCUR? 
e7e3 Dalles Si be seo sé RO BRANCH 





SEQ 0142 


M11 
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w uae 14:59 


ag 


: : 
: > 2 Gee 
. a i 2 
ef : 5! : . & &  ESBRaRSEEe 
am i s cole ee 
2352 z 2 2 ow : 24 once 
“Bich § = i = SESE Sg cooteSSlteine 
Elvoclt © Gy Cnilew’a, Siacehs ot seater 
: é g : * we 
fa) s eet eee tet 
oh teal Dalek & 8 gecsssscees 
ze ==e° = o & -LESSSSES SSS 
Bes oo ee wesaae oe 2 dt ded 4 33 gapecoo22ee2 


7S Recent pecerehScye cE Be SREREEEEDES 


oa ae 


e hie 
8 8 888 8 


is UBL! 


001000 147614 115: 


oo00d2 147604 
001364 001103 
000040 147564 
 & 


VRUUYUYYY 

oh oh 

Si esttntyests 
TUS nd ad wo wh 4 

=—OO0 000000000 


SORE SORA RINE REREAA SAARAE He auenSSeeessss 


th th Ot a wh tt 
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#48 PROGRAM SUBROUTINES ### 


| 
 ARBERREERE 


g 
& 
- 


BSR oh tonto ts Ata Min Mis Micanes Masha es eas Snes ae 


PC 


NX, RO 
PC, asDATCMP 


SUFFER, R1 
Oa TAOPB +H, Re 
PAT PTCRO) ,R3 


(R3)+, (RL)+ 
(R3)+, (R1)+ 
(R3)+, (R1)+ 
(R3)+, (R1)+ 
(R3)+, (R1)+ 
(R3)+, (R1)+ 
(R3)+, (RL)+ 
(R3)+, (R1)+ 
(R3)+, (R1)+ 
(534, (RiD¢ 
(G3), (Rl)+ 
(R3)+, (RL)+ 
(R3)+, (R1)+ 
(R3)+, (R1)+ 
: )+, (R1)+ 
(R3)+, (RL)+ 


DONE? 


a -* 


COMPARES A 16 WORD DATA PATTERN 
DATA BUFFER 


;PATTERN NUMBER INDEX TO RO 


: RO - RS 
t PIRST RODRESS OF BUFFER 


NO 
‘PA POINTER 


is Aa 
J 


sBRANCH IF DIFFERENT 
; CHECK 


; MOVE WORD 10 INTO DATA GUFFER 
me ie fa Ie Bn eee 


OVE AG 1 HTS Baa Bre 


WORD 16 INTO DATA BUFFER 


SEQ 0143 


3 
4 


vw 
BS8S8es8 = 


De be ee be fee ee 





ATA 












tAL AAT ATATATATATAtAt 


$s pe bas fe fe Be ps Pe Re po pe 


REBT ERP ORG RRS eae: 





ATA 
















b 


SSSR 
Seo ees eRe : 


3 


—— 331 

$891 031 ll 
031 1 
031 1 

SBSH 031 1 

5895 031 104013 
bs i? 4 13803 P 
ct Rite 

§900 031 012737 

5901 031732 104014 
031734 
031742 1315 
031744 123737 

eae 031752 101004 

rt] pal ze4 013766 

5 1762 000705 

$908 031764 000115 

5309 

5910 

911 

91 

591 

5914 

5915 

91 

91 

egig 031766 012701 

5920 1772 013702 

Sel 1776 004037 

S22 005302 

S23 032004 100374 

$24 032006 000200 


147176 
001103 
000016 
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BNE wg BRANCH IF DIFFERENT 
ADD #16. ,R2 DONE ? 
a i fo arene 
3$ S (SP)+ YES -- CLEAN UP STACK 
R greG se RESTORE RO - RS 
4g: MOV RL Ra FORM THE WORD NUMBER 
RY cl 
R3 RS + ORn HORE ES TO CONTINUE FROM 
Pat. PT(RO),RS 
RS s ADDRESS 
-(R4).-(R1) "RECONSTRUCT THE BAD WORD 
R 1 S8SBDADR ;SAVE THE ERROR INFORMATION 
(1s. geeeOeT i 
(SP) ’ Le TA COMPARE ERROR? 
TADPB+ 


#CYL.DS ;CYLINDER 
* TRACK 


ge Sgageaggencdesseencagg 


T0 
13 

pes hn CFT THe ERROR SHI TCH 
<3 SESE SSS 7c cron 
7S: BIT —SGWOL, 2SMR :STOP DATA COMPARE? 

CMPB 0s MSERR.CT,@S8SERFLG :MAX. ERRORS 

ROV SEOYPRSS, 16(SP) tYES--ERROR EXIT 
Bs:  JMP (RS) ;NO--CONTINUE AT NEXT WORD 


3 WILL FTU. THE DATA BUFFER (2S6%22 WORDS) WITH 
Hook HE FIRST TWO WORDS OF EVERY 2S6 WILL 

; THE RANDOM NUMBER GENERATOR FOR THE 

;NEXT 2S4 WORDS. 

ies THIS ROUTINE DESTROYS R1 AND Re 


: 


: JSR RO, 38F ILRAN 
. RETURN 
FILRAN: MOV SBUFFER,R1 
PRMLMT+22.R2  ;MAXIMUM NUMBER OF SECTORS 

1S JSR RO, JSRANPAT 

DEC R2 

BPL 1$ 

RTS RO 


SEQ 0144 





Hatt ny yy “A See ExT paed Rive TEST sony 30( 1046) sary le PAGE 113 


FRELRP SEAM IR Bsa a eatoes Saw Gans ORS waa 


aces 


gaag 


PEERERP: 


8 
ian 









— 
AtATAIA 





f 
} 


AltA 


t+ e+ 


-— = = 
A 
a’ 
- 
A 





+ 
+ 









SFOO0C 
AtAtATA 


a 
AtA 


1 
1 
1 
1 
1 


AtAtata ALAIA 
WUrOrorL Tf, Tf, 7 
F2NSFEROFSEREVSRPBS 


; 
i 





— 


16 


8 


Ze 


bso 
ouo 


= 
Coal 
oO 
fo 
bY) 


SSaseae 


0012Se 


001206 


146772 
001103 
146752 


$ JSR 
. RETURN 
RANCK: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CLR 
1S: SUB 
BEQ 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
SUB 
ASR 
TST 
BNE 
COMB 
ERROR 
es: ERROR 
3$: BIT 
BNE 
CMPB 
BLOS 
BIT 
BNE 
4§: CMP 
a 
Ss: TS 
BEQ 
MOV 
6S: RTS 
; THIS ROUTINE F 


; PATTERN WH 
;OF THE PATTE 
;CALL 


JSR 
RETURN 


HREAO GUPrEN TO GENERATED @ RANDOM PATTERN. THEN 


es Rut ahve SER AL-E TOm e. 


Se a tig ;SAVE THE PRESENT RANDOM NUMBER 
Satish ime arren moese 

tha), @sSLONUM scarey NTANOGH RUMBER GERERATOR 
;GENERATE A RANDOM PATTERN 


(Se! eSLONUM *RESTORE PRESENT RANDOM NUMBER 


;NO ERRORS 
(R3)+, (R2)+ ;ARE THESE TWO WORDS DIFFERENT? 


(ECO TO eno BORD 
R2, a8S8DAOR : OF DATA 

R3, a8SGDADR 3ADDRESS OF GOOD DATA 
(R2)+,a8SBDDAT BAD DATA 
Se eee eaeaT ee BORD NUMBER (1 TO 256) 
SBUFFER#S12 RY 

(SP) FIRST ERROR 

(SP) H T SWITCH 
{er i REBORT™ ERROR 

16 : REPORT ERROR 
#SH09, aSHR i LOOP ? 

SHERR. CT, GUSERFLE jhAx. OCCURRED? 
BSHO1, @SHR ite ING? 

R1,R3 : TA BEEN COMPARED? 
(SP)+ : OCCUR? 

6$ : NO- 

JeBYPASS, RO TAKE ERROR EXIT 

RO sEXIT 

TLLS A 256 WORD BUFFER WITH A RANDOM 
CH THE FIRST TWO WORDS ARE THE BASE 

#ADR, RI :ADDRESS OF THE BUFFER 
RO, a#RANPAT : 


SEQ 0145 





? 


PIL 22-JUL-77 14:59 
032206 010246 
032210 





SPGRGESSEDEEEE SUS EREE EDR S TTS ENIGNUaTTG 
' Phere Ree he ee 

DONIC SW pia 
tatatatatataratatarasneataratat aay 

+ yf } N } 


001512 


001510 
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% PROGRAM SUBROUTINES ### 


RANPAT: MOV R2,-(SP) ;SAVE R2 
MOV 72. ,R2 GENERATE 256 WORDS 
1$: FR, C ,2SRAND GENERATE A RANDOM NUMBER 
2$: MOV SSLONUM,(R1)+ PUT LOW WORD IN BUFFER 
HOV — * (RL)+ Dre WORD IN BUFFER 
Bet 
1+, R2 TORE Re 
Avs ie isyoe he 
: THIS ROUTINE GENERATES R RANDOM CYLINDER AND SECTOR 
gies This WD THEN IN THE (otAOrEs 0, 11 & DTADPB+12). 
S Spe ctnove Ri 
: JSR oan 
: RETURN 
RANADR: JSR PC, 28SRAND TE 
nove gest nun Ri FORM SECTOR IN RI 
SSLONUMS1 Re = SF 
MOV JeSHINUM, R3 *FORM CYLINDER IN R3 
STB Rl ENSURE THE SECTOR IS BETWEEN O AND 31 
1S: cHPR PRMLMT#+22, Rl CHECK MAXIMUM SECTOR ADDRESS 
2s CLC 
oe 
3S: STB Re ENSURE THE TRACK IS BETWEEN O AND 4 
4S: CMPB 38, Re 
BGT 6S 
cs CLC 
ies 
6$ cH S¥FC, RS ENSURE THE CYLINDER IS BETWEEN FC AND LC 
CLC 
ROR R3 
ADC R3 
BNE 6S 
MOV R1,R3 
SWAB OséRR 
ADD R2,R3 
INC R3 
BGT 6$ 
NEG R3 
BR 6$ 
7S: CMP JBLC,R3 
BGE 8$ 
cL¢ 
ROR R3 
BR 7§ 
QS: CMP aeFC,R3 
BLE 9 


SEQ 0146 





? 
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Pll 22-JUL-77 14:59 ##% PROGRAM SUBROUTINES ### SEQ 0147 
tea tye fi 
BR 7$ 
174 9s: R T 10 CTOR ADDRESS 
ges ie gir oe SRWTSERID ae HRI OES 
Baeuss Badeaa es ORB Revo ~ OER 
sTHIS ROUTINE IS To I THE “CONTROL SWITCHES”. 
IF SWR<O7)=1 THE PRESENT SETTING WILL BE AND THE NEW 
*SETTING IS READ AND ST 
‘NOTE: THIS ROUTINE DESTROYS R3 AND R4 
: 
‘we JSR PC, S8CETSWR 
: RETURN ;(C.SWRISDESIRED CONTROL SWITCHES 
932777 146506 GETSWR: BIT $SHO7 , @SHR ;READ CONTROL SWITCHES? 
4 104401 032442 TYPE 65S t TYPE ASCIZ STRING 
_ 5$ Recrz Tt anaes cunidgscos :, a 
032462 big: ac 
032462 012703 043704 1S: MOV aHsG.CS,R3 "CONTROL SWITCHES ; cine 
fasyss dager BSLETP Wee ORB aRce tNUM icey te eOnTRGY Sar Cet hes 
000771 BR : 
Ries Oe oovzeo onze =» Ysa Saves SE Mer96 Ve ey sere 
032514 000207 2s; Rts PC t RETURR “P5RI0 opr 
;THIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN 
s INPUT aN esclz STRING AND CHANGE THE STRING TO OCTAL 
sNOTEs HIS ROUTINE DESTROYS R1 
: MOV SADR, R3 sADDRESS OF ASCIZ MESSAGE 
: MOV NUM’ RY “OCTAL NUMBER 
: JSR RO, a&GETNUM 
: RETURN! INPUT INATED WITH A COMMA 
: pas sMETH A DOUBLE PERIOD 
; Ramana F 
9 ; THREE RE 
a ee ‘HYPE THe Meesace 
2s: «Horo 0. sane jMESSAGE POINTER GOES HERE 
T 2 pL ASCII(ALL DIGITS) 
T , SLASH 
ROLIN 
MOV (SP)+.R1 
JSR RO, aeCK. CHR 
1§ ieee SHARACTERS 


SISTED Se I | 
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##% PROGRAM SUBROUTINES ### 














DZRMFA.P11  22-JUL-77 14:59 SEQ 0148 
oe ee 1$ ;CARRIAGE RETURN 
3$ te ge 
fe ! ate 
11$ *DIGIT 0-9 
11s: DEC Ri ;DECREMENT THE INPUT POINTER 
fi 035226 JSR RO, a8CK. NUM ; CHECK NUMBER 
1 1$ * ILLEGAL INPUT 
61 6$ : NATED WITH A “,” OR “CR 
1 Be Be : NATED WITH A." 
1 USCS 4 yg $ ha i TH a ee 
106 O3e8 4§ TST (RO)+ : 100 
6107 032605 S$ TST (RO)+ :SI PERIOD 
6108 O3et 6$ MOV R2, RY : NPUT NUMBER 
e110 OSes nm: Yee tes i ERMINATOR AFTER A COMMA? 
gr: e g 
eH 1326 BNE 1S ND LOOP 
i153 Oa 8S eS oiRD i TERMIAMTOR AFTER A PERIOD? 
pia BEQ A ae oR 
11s 000056 CMPB a» (RL)+ : PERIOD? 
bt? AG BR ) ES POM INATOR? 
118 BNE is *NO--LOOP 
3 os, ot GBlS BG Pent 
bist i0$: § MOV RY, Re : ITION THE 
1 Re ‘NUMBER IN CASE IT 
6123 ASR Re 1S THE PRIORITY LEVEL 
6124 ASR Re 
61 ASR Re 
bi RTS RO EXIT 
6128 ;THIS ROUTINE IS USED TO CHANGE OR MODIFY 
6129 THE TEST . IT GIVES THE OPERATOR 
6130 *THE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST, WHICH 
6131 >TESTS TO RUN AND HOW MANY TIMES TO 
6132 *REPEAT EACH TEST 
biz GT.PRM: G ;SAVE RO - RS 
1 001232 GT:PR1: CLR DRVSEL *NO DRIVE SELECTED 
6136 032670 TYPE 655 TYPE ASCIZ STRING 
1 BR 4§ *:GET OVER THE ASCIZ 
i igs: -ASCIZ <CR><LF>/DRIVE(S)3/ 
6140 ROLIN ;READ TTY 
ae cores Aiton SO! fetaz gr 
614 CT.PR1 *TLLEGAL CHARACTER 
6144 GT: PRI *CARRIAGE RETURN 
6145 GT: PRI 3"/" 
146 GT: PRI ll 
14 GT:PRI ,0ne 
148 1$ ‘DIGIT 0-9 
6149 1S: DEC Rl 


MO-11-DZRNF-A RNO3 ee le TEST 










OZRMFA.Pi1 22-JUL-77 14: 
p . 
pies 3 
1 
bie 032752 033000 
p18 in tep heaat o3sso2 001232 
pie 
Le an 
pie2 B33006 138632 035502 001232 
bier ae 000207 
bi REBiE gr) om 
6171 
cig Gaeee pom 
eive 127i 
biz 000001 
e173 
pie | 
1 es 
1 ys 
1 t 
1 ' 
iq 
bie : 001234 
6190 
12 001234 
i: 
bis 001234 
19g 
001236 
1 
001236 
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%##% PROGRAM SUBROUTINES ### 


4$: 
df pre: 
GTTST1: 


big?” 


1$: 
GTTSTe: 
1S: 


es: 


4§: 


SS: 


MOV 
fp 


GT.PR1 


CLR 


a fair itr Ss 


4 


agune 


eB 


a 


87,R2  ;UPPER LIMIT OF INPUT 
RO, a8CK.O1G : TH Qigit«s) 


Barat ath p22 = 
agg owe Pee eR 
Sireneg —ieatic IESE 


STNMS+2 
ar ABTT (Re) DRVSEL ©& “ELE LER tED DRIVE BITS 
pc 7 jRESTORE” Ro ~ 

i 


65S ;; TYPE ASCIZ STRING 
4§ ?:GET OVER THE ASCIZ 
/TEST=/ 
: aN 2 STRING 

(SP)+.R1 iBOINTER 10 Ri 

#’.,(R1) ‘DOUBLE PERIOD? 

1 ;NO- H 

#’., 1(R1) 
Br PRe t VES--EXIT 

STNMS *NO TEST SELECTED 
TSTNMS+2 
OPNELG ;NO TESTS TO BE OPENED 
(RL) 8S ALL SEEK TESTS? 
8777 ,ISTNNS *YES--SELECT TESTS 0-10 
(R1),#’T ;ALL TIMING TESTS? 
#36000, *YES--SELECT TESTS 12-15 
GTTST3 

(R1),8#°A ALL SSING TESTS? 
#140000, TSTNMS ;YES--SELECT TESTS 16 & 17 
GTTST3 

(R1),8#’D ;DATA TEST? 

:NO--BRANCH 

#1, TSTNMS+2 *YES--SELECT TEST 20 
GTtsT3 
(RL), #°E sEXERCISER TEST? 

#2, TSTNMS+2 *YES--SELECT TEST 21 
GTtsT3 


RO, d#CK.OCT ;OCTAL DIGIT? 


SE@ 0149 


MO-11-DZRMF-A RMO3 EXT 
DZRMFA.P11 22-JUL-77 14:59 






A 
6206 033210 000514 
s wri 
000022 
033436 
000017 
001424 


t=] 








A 
A 


RIA 

+ 

- 

> 
~“ 
— 
fw 





AtAtTAt 
AtATAtTA 





= 
A 
A 
A 





+ 


AtA 






{A} +n 
AIATA 
+ atataAt 
+54 

+4 





+ 
+ 
+ 
* 


+ 


+m? 


tA 
A 
A 
= 


fa) Cad Cad Cal 
AtAtA 
) Oa) Ca 


EG! 





= 
A 


— 
A 


+atATAtA 





AtAtAtaAt 
A 





4 
¢ 


+x 





AAT ATATA 
A 


AtAtAt 


DRIVE TEST 


001234 
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#%% PROGRAM SUBROUTINES ### 


6S: 


PRR Ra SSa Rena ess yzS3 


29° 


ga 


38 


REBGRaSHRSSSR ZEQERRRZBGZ 


Berge 


GTTST4 ; NO--BRANCH 

fe. nove Fett CHARACTER 

Rb, aack. OCT : OCT; Br T 

6$ : NO--BRANCH 

Rl ‘MOVE TO NEXT CHARACTE 

Re ‘SCALE HIGH DIGIT 

Re Re ;COMBINE HIGH & LOW DIGITS 
ater NOt BRANCH 

RD. 3g *SAVE THE TEST NUMBER 

R2_ RY ‘CONVERT TEST NUMBER INTO AN INDEX 
#17,R4 i CLEAR BITS 

R4 : SHIFT BI 

RY ‘SHIFT THE BITS 

RY *SHIFT THE BITS 
BITS(R2),TSTNMS(R4Y) _;SELECT TEST 

(Rl), #°- TEST STRING? 

ertsty TO OR OVE TO NEXT CHARACTER 
RO, a4CK. OCT tC TAL, RYErt? 

Be ToS CAVE "IT 

Ri’ : MOVE i ReXT CHARACTER 

RO, 34CK. OCT “OCTAL DIGIT? 

Ri :YES--MOVE TO NEXT CHARACTER 
RS SCALE HIGH DIGIT 

RS 

R5,R2 i COMBINE HIGH & LOW DIGIT 
Re: #STN-1 VALID TEST NUMBER? 
tPF sueen of ng 
sant State SMALLER THAN LAST? 
R2, -(SP) : SAVE : T 

3$,Re fe ier sTantina Tet MREER 
gs TET IN TEet NUNBE SER 
R2 : SHIFT NUMBER 

en score town pire we 
Ry’ tier ie +75 per 

RY ‘SHIFT THE TEST NUMBER 

Ry SET THE TEST NUMBER 
BITS(R2), TSTNMS(RY) SELECT THe TEST ; 
Ro, 9S i I INISHED — 
as ‘BR IF NOT 

#2,R2 ‘CORRECT TEST NUMBER 

GTtst4 : CONT INUE 


SEQ 0150 


? 


Pll 22-JUL-77 14:59 


AtAtATAtAtAlAtAtA 





+ at 
ata’ 


001240 













tAtA 
+ 





SOmOC 
AtAtAtAtTA 


a0 
1 

At 
b bd 











+ 


Maintain 
Sahara rarer ve 
g: 
<£ 
? 


tz 


+A At ATA 
+atatatat 
> 





tata 
tata a 
1,? 








AtATAtA 





tAtAtAtAtA 


SST LSE 






' 
ike 
Ke” 
Ky ee 12 
5302 0326 001240 
Ke: 
Re EE care 
pate 033640 000137 033006 
i 104412 
i 
1 1 
14 033650 
16 000022 033650 
6317 033670 104413 


Ile 
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;STORE TEST NUMBER HERE 
NEXT CHARACTER 


ats 13: Ca 
g ata: INS RL #’. He I 
BEQ GTTSts © : 
st r TNMS ANY TEST. SELECTED THIS CYCLE? 
Ist TSTNMS+2 : BY TEST SELECTED THIS CYCLE ? 
JMP GTTST1 : 
1S cHPe (RL), 8°7 j OPEN"? 
BIS TS(R2), OPNFLGURY) ae CH cet BITS FOR TEST TO OPEN 
- Ses tae tr YES 
IMP GTTST1 :NO 
3S: INC Ri iMOVE, TO NEXT CHARACTER 
BEQ 4g BR IF °CR’ 
IMP GTTST2 *NO--GO GET NEXT CHARACTER 
4S: TST OPNELG sANY TESTS TO OPEN ? 
Slag 
IMPs GTTST1 :NO--START AGAIN 
GTTSTS: INC Ri < iMOVE TO. NEXT CHARACTER 
Q GTTSts ? YES--BRANCH 
a VES “BRANCH 
INP GTTST1 ‘ 
TST OPNFLG+2 ANY TESTS TO OPEN ? 
OPNTST :BR IF YES 
IMP GT.PR2 *NO--GO START TESTING 
GTTST&: INC Rl ;MOVE TO NEXT CHARACTER 
STB (RL) CR"? 
IMP GTTST1 iNOS ASK FOR TEST 
1S: Ist 3 saNy TS TO OPEN ? 
Bue ergs vo orm 
IMP GT.PRe :NO--GO START TESTING 
OPEN THE SELECTED TEST FOR CHANGES 
OPNTST: SAVREG ;SAVE RO - RS 
R (PC)+ :START WITH TEST O 
OPN.CT: .WORD 0 : ST 


OPN.2 
OPN.1: INC OPN.CT 
CMP #STN-1,0PN.CT 
BGE OPN.2 


S 
TEST NUMBER TOO BIG? 
;NO--OPEN THE NEXT TEST 
RESTORE RO - RS 


SEQ 0151 


Jle 
22-JUL-77 ‘16:19 PAGE 120 


SEQ 0152 


#%% PROGRAM SUBROUTINES ### 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST MACY11 30( 1046) 
22-JUL-77 14:89 


OZRMFA.P11 


a 

wi s y e.- ~ wo 

fis a. Poh, GF, Gf 2 

ee ae ba 2 er ee 

eee ee ee ee 
af w rephewen 5, = g BOS ge Ee be” Ngee 

Se 6 Pee ee ee a 

me: a Sept Oe Feet ie AS aba 

oe Es ee ee 
ob 8 ok Gs ce Se 

Bo S hn HS o-r pd _ ~ = seas +3 

EEvESpoonkee” & Ava aS hes 

sbebsbatadis! g f:AEeepstaarabsbobamvarat st en getenen 


57 
1636 034060 


B 


3 


- 

8 2 8 
RA 
een opener 


013746 033650 








: 
i 


“A RMO3 
22-JUL-77 14:59 


wo 
— 
bk 


ah 


TEES | 
sea Es 
= 3 





B38 ioe 36 
ee 
1 ms 044660 
B iow 
ah dig 
ee 
ai ee 
Hs Be Ba? 
qd 
bee ooeoe 001506 


SS: 


6S: 


OPNPAT: 


1S: 


4§: 


EXTENDED DRIVE TEST oe 30( 1046) 
% PROGRAM 


, 


ak noe 16:19 PAGE lel 


SUBROUTINES % 
6S 
tS 9 (R1) 
BNE 3$ 
BR 2S 
TSTB (RL) 
BNE 64 
IMP OPN. N2 
CMPB a8’. (RI)4 
BNE 3$ 
TSTB ss (RL) 

3$ 
OPN. X2 

DEC Ri 
MOV PRMLMT(R4) Re 
JSR RO, a#CK.D16 
3$ 
3$ 
9$ 
OPN. Nt 

"x1 
MOV R2,RPT(R4) 
Roe hes 
TYPE eG: PAT 
TYPE MSG.EQ 
MOV APT(R4) ,-(SP) 
TYPOC 
TYPE ,MSG.SP+1 
ROLIN 
MOV (SP)+.R1 
JSR RO, d#CK. CHR 
OPNPAT 
OPNPRM 
3s 
OPNPRM 
is 
STB (RL) 
ee 
BNE OPNPAT 
TSTB ss (RL) 
BEQ OPN. xe 
Bee 
JSR RO, 2&CK. NUM 
OPNPAT 
4§ 
OPN..N1 
OPN. X1 
MOV R2, RPT(RY) 
ROR R2 
BCC OPNPRM 


;DIGIT 0-9 

; STAY ON THIS VARIABLE 

> YES--MOVE TO NEXT VARIABLE 

I A “CR” AFTER THE PERIOD? 


jYES--GO cL Coe THIS TEST 


fea POR THIS Reet 
“CR” AFTER THE DOUBLE PERIOD? 


peas al AGAIN 
THe POINTER UP BY ONE 


SUPPER IMIT OF _INPUT 
: CHECK DIGIT(S) 


F T 
TAL ASCIICALL DIGITS) 
ING 


TER A DOUBLE PERIOD? 
 YES--GO START TESTING 


-L 
tO ASCII POINTER 


; OPEN 


ERN 0? 
:NO--START AT BEGINNING OF PARAMETER TABLE 


SEQ 0153 





MD-11-DZRMF-A 
DZRMFA.P11 


: 
Ke 
oud 
iS 
S 
ie 
ie 
iS 
Bue 


ois USE RES PRE 


034340 










SEES 


A 





104412 
12704 


Z 


Bias 


2 
lel oe 


S 
= 
& 


003104 
034356 


035226 





OPNWDS: 
1$: 


FE: 
5 
= 


bs SE ~~ 
ae 
zg “2 


BBY RaksarAs 
Qn: aon —_ 
S 835 & 


“33 


a 

os 
mn 
+ 
- 


(RL)+, (RY)+ 


EXTENDED DRIVE TEST ae 30(1046) 22-JUL-77 16:19 PAGE l2e 
#% PROGRAM SUBROUTINES ### 


RMO3 
22-JUL-77 14:59 


SE@ 0154 
;SAVE_RO - RS 
;START WITH WORD 0 
3 Lee ASCIZ STRING 
3;GET OVER THE ASCIZ 


PUT RO ON THE STACK 
; CHANGE ko To DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 


; (R4) FOR TYPEOUT 
2260 =-OCTAL ASCII(ALL DIGITS) 
"READ ASCIZ STRING 


; PICKUP BOINTER 


‘DictT 0-9 
BACKUP THE ASCII POINTER 


;CHECK THE NUMBER 


eee WITH A ™,” OR “CR” 


INATED WITH A ”.” 
j TERM TED METH A=.” 


be % I 
for Nall TESTING 


ea PATTERN 


pry BUR eT TEST 
aN pate PATTERN 


sae TESTING 


sFI Rat ADORESS OF DATA PATTERN 
SCOT THe LAST WORD THAT WAS STORED 


:YES--EXIT 
; COPY 
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OZRMFA.Pi1 22-JUL-77 14:59 


ix ——! een SG 
ge & 
; : aj Ree 


000067 


177770 





##% PROGRAM SUBROUTINES ### 


= 
a3 gs 28 
ie 
2 


OPN. x1: i Borah 
OPN. X2: (SP) > CLEAN ACK 
The itboate tHe | 
cr Ro, #16x2 ; INDEX T0 BIG? 
PE eREG T - RS 
IMP GT.PRe GO TO EXI 
3s BIT poten 1S THIS TEST OPEN FOR CHANGE? 
BR iNo=noveT NEXT TEST 
CLOSE: SAVREG i SAVE - 
MOV #PRM, RO 3" 
MOV PRMPT(RS),R1 ;"TO" 
MOV (RO)+, Re : “FROM” CATOR 
MOV (R1)+°R3 :T ICAT 
MOV #1,R4 : T A "RPT" 
1S: BIT - R4;Re : TO BE ? 
eit See in Pua 10 PuT IT? 
, thay. cm TO “To” 
2s: Bit RY, RS iio peererer” 
Q B ;NO--BRANCH 
TST (R1)+ tes POINTER 
3S: TST (RO)+ 
RY Harmer ST eBrT 
BIT g1T10,R4 DORE 
R SREG ne iene ’ Ro - RS 
sTHIS ROUTINE 15 USED TO CHECK IF AN 
sASCII CHARACTER IS A DIGIT BETWEEN O AND 7. 
: MOV SADR, RI ; 
: ISR on RO, a&CK. OCT eat (rar nee ea <a 
; RETURNS + RRRAC 12 ane 
; :OCTAL DIGIT 
CK.OCT: (RL), 8’ ? 
EM ppd 
CHPB OO s«(R1), 87 ; GREATER THAN SEVEN? 
ae t ) on TER 
BIC ee 7K IP fia oH ASCII 
1S: RTS RETURN = 


;THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 


SEQ 0155 











OZRMFA.P11 22-JUL-77 14:59 
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##% PROGRAM SUBROUTINES ### 


Sp CE TERINE IF IT IS A DIGIT BETWEEN O AND 9. 


’ 
: MOV BADR, RI TER 
; , 0, abCK. DEC Saber ee 
: RETURNE 
; iB eect IG Fees 
CK.DEC: CNPB = (R1), #0 ;LESS THAN ZERO? 
BLO YES -- BRANCH 
cHPB agp -GREATER THAN NINE? 
mMOVe  (R1).Re er 
BIC ab Re 1p Pay AY THe ASCII 
TST (ROS+ {ADJUST 
18: RTS RO : 
THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
DETERMINE WHAT IT IS. 
oa Ri I CHARACTER 
MORO SRCK. CHR iGreck GofRacTE 
: RETURN ADAI ;UNKNOWN CHARACTER 
: ere RE TURN ‘ (RL)=ADR+1 
| Bn» Late 
: RETURN ADRS PERIOD # ( SeADRt 
: RETURN ADRS ‘DIGI AND 


‘ 
oO 
Es 
_4 
w 
a 
vo-~ 
zm 
— 
— 


9. 
= DIGIT # (R1)=ADR+H 
; CARRIAGE RETURN"? 


Q ° 
al (R1), #8? 7 RS 
CHP (R1),@’, Comer 
cH (R1),#’. + EeRTOoe? - 
ISR fd, anck, Dec epicii~ 
fr fsa eee os 
TST (RO)+ ; COMMA 
an a 
INC Ri COE POINTER TO TO NEXT CHARACTER 
MOV (RO), RO ETRACROUN CHARACTER 
RTS * RETURN 


CHARACTERS AND FOR Roh DECIMAL CALE Ete Turwen 1m 
;ROORESS. OF fSeiZ_STR 
*CHECK DIGITS 

RETURN ADRI ILLEGAL CHARACTER -- R2=? 


SEQ 0156 


B13 


SEQ 0157 


‘i 
eB! 
a 
“ae 
et 
iS 

= 

at 


sdu-7? Ia: 
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DOZRMFA.P11 


CK.DIG: 


CHEE 


2 

# 

z 

yO 

a : 

= ’ 
_ “ 
ae 
Ba 86s 
EQUYPEL 


: 


a 





cucucucucy 


O-UMTiNnwor. wo 
A tt 


BIBLLBLBLBB 


t. 
sis 
[. ¥ t 
7 See - 
oe ee eee 


ee 
wn 
—_ 


: 


THE CHARACTER POINTER 


we 
ai 


joe 8 


# 48 


- 
8 


4§: 


T RETURN ADDRESS 


;WAS TER BEFORE THE DIGIT A COMMA? 
iNO--EXIT 

; INPUT TO LARGE? 

;NUMBER TO Re 

;CLEAN MAX. SIZE OFF OF STACK 


me Ges emicseai ase 


SS Nee a elas, 





Peer ernie ee 


SEQ 0158 


C13 
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Se Ws 


1-DZRMF-A 
DZRHFALPLI 


MD-1 


‘i 
; : : : 
i. 2 f i! 
eR = * S52 #2 
Ho a a 
Settee Bssbe- Sea EP BR 
- Se Be on Nas oer nS Seite. Biss 
i tet 4 
2 & & 3 yt tira, 
Bp a : Bees seeaseaomowveenses Sey SPs ynhee 


Be E Se Bat coe ee gd tigmannnibeenn essay 
fed 2 os 


eReBemememememenem C) _ 


ou o FR $8 
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SE@ 0159 
5 RERERALEREE SESE EERE ERLE R REE EERE EERE EERE EERE LEAR EERE LESS 


-SBTTL SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 


;COPYRIGHT (C) 1976 
DIGIT EQure CORP. 


MA 01 
AUTHOR(S) : JIM LACEY/CHUCK HESS/C. CHEN 
5p Be REE SESE SE AE ESE SE SEE SE ES HE SE SEE HE HE HE HSE HE HE REE EE ES 
;STORAGE FOR RMDS, RMER1, RMER2, AND RMMR2 ON AN ERROR “2” 

= 


; TABLE OF Aish} opty: ie (DRVACT=8 BYTES) 


F DRIVE IS I 
F WITH A COMMAND 
F WITH AN ERROR RECOVERY OPERATION 
Bava 3 | BRIVE 18 AC eT} : 
DRVACT: BYTE 0 s DRIVE 0 
BYTE 5 i ORI VE : 
-BYTE O : DRIVE 3 
ae Be 
: 0 “DRIVE 6 
“BYTE 0 :DRIVE 7 
TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
;DRVSTA=O IF DRIVE IS OFFLINE OR NONEXSITENT 
*DRVSTA>O IF DRIVE IS ONLINE 
:DRVSTACO IF DRIVE IS UNSAFE 
DRVSTA: .BYTE 0 ;DRIVE 0 
“BYTE O :DRIVE 1 
“BYTE 0 :DRIVE 2 
‘BYTE 0 *DRIVE 3 
“BYTE 0 *DRIVE 4 
“BYTE 0 :DRIVE S 
“BYTE O “DRIVE 6 
‘BYTE 0 DRIVE 7 
;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 
;DRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO) 
“DRVTYP=4 IF DRIVE IS RMOJ 
*DRVTYP=-1 IF NOT RMO3 








SEQ 0160 
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wuwwes Sinn wevevews WH www © sins Ee, 83g 
RERREA ge, SRABREER GEE REeeReRE c= FEay SEE ous 
55 ee a 
Ese eas oy Gog fe oe 
ae = ae pity fs 
Eze EE ° ae SS (wa 
ae a a ee 
ew By ceecccee aek g fats g cee © Bee 
Goceee oa Geecceee PEE GEEEEERE SEB @ coed § ous & Fag 
) a er) 2 ; 2 é S 3 
t § af oh GE &8 
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2 a as 
zee ag S >; S 2 Rema eae 
rs eek a= §¢ S8S85558 
Ze 3 Sh eT 5 
Basta he eee | OG 
o Byce coosecce ES 20000000 Sos: & Euece T Eg terri 
= Bra: = «2 = 
c oS5s SSnraaey i eeieeees RE @ Soest # senna 
& 2 = o 6 * Pr 2 e 


EG RG a ee ef Og 


8 Ssssssss  S888888e : REREEEEE 
aU ee 
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SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 
;DATA poorer (DTUW=1 WORD) 


TRANSFER UNDERWAY 
YL she IF NO DATA 
;DTUW=+N (WHERE N=O TO 


DTUW: .WORD -1 


; ATTENTION ors TABLE (ATABIT=8 BYTES) 
3TH eae INS THE CORRESPONDING BIT TO EACH DRIVES 
tANTENTION 


Y 
) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


ATABIT: .BYTE 1 i DRIVE 0 
‘BYTE 2 ‘DRIVE 1 
ae ig | BES 
“BY 20 DRIVE y 
"BYTE 40 DRIVE S 
‘BYTE 100 DRIVE 6 
“BYTE 200 :DRIVE 7 


;FSRMO3 TO RH70 “MASSBUS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 
;CALLING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: .WORD 3 


;STORAGE FOR RMAOR (THE FIRST ADDRESS (776700) OF THE RH70/RMO3) 
;RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)3. 
RMADR: .WORD 176700 

RMVEC: .WORD BEN 5#32. 


;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 


MXLACT: .WORD 4 
;MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 


MXDLTA: .WORD 8. #64. 
;MINTMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 


MNDfA: .WORD 2%64. 
;MAXIMUM SEARCH FOR I/0 WINDOW IS S SECTORS (MXWNDW=1 WORD) 


MXWNDW: .WORD 5 
;DEFINITIONS OF THE RH70/RMO3 ADDRESS INDEXES 


SEQ 0162 


RNCS1=0 AND REGISTER #1 (DRIVE REG. 00) 
aerieee ORD COUNT REGISTER ROT A DRIVE REC) 

RMBA=4 UNIBUS ADDRESS RE a BRIVE REG) 

RIOR=S t DESIRED SECTOR/ TRACK : REGISTER CORIVE REG 05) 
Resse :DRIVE STATUS “PECISTER a 01) 

RMAS=16 tATTENTI ar Tara RE RiStER (DRIVE REG. 04) 
RMLA=20 “LOOK AHEAD REGISTER DRIVES Ree. 07) 

RMDB=22 ‘DATA BUFFER REGISTER (NOT A DRIVE REG.) 





F 
¥ 
3 
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000024 RMMR 1 =24 : REG. 03) 
000026 RMDT=26 iDRI TYPE REG (DRI ReG 06) 
000030 RMSN= : G (DRIVE REG. 10) 
000034 te OEE PRED CYLINDER. REGISTER (DRIVE REG. 12) 
000036 RMHR=36 : DUMMY REG (DRIVE REG. 13) 
000040 RMMR2=40 MA I 2 
ooo04e =42 : REG be REG. 15) 
000044 RMEC1=44 “ECC POSITION REG (DRIVE REG. 16) 
000046 C2=46 ECC PATTERN REGISTER (DRIVE REG. 17) 
I NITIAL IZAT 
een RAE Tae et oo ae Te OD St 
ify Lee TIP Hea ot 
*NOTE: THIS INE CALLS 
; CALL 
: JSR PC, RMINIT 
: RETURN 
“NOTE: THE ’P’ OR ’L’ CLOCK MUST BE STARTED 
104412 RMINIT: SAVREG ; SAVE RO - RS 
Ot 77776 MOV #PS.-(SP) SAVE THE PRESENT PROCESSOR STATUS 
127. hoa248 177776 nov #<S5#32.>,08PS  ; CHANGE Cee PRIORITY TO S 
ieee Peau MOV yRL Finest Abba ee TS Be EL EARED 
1 035456 MOV #SEEKFG, Re LAST ADORESS TO BE CLEARED 
I 1S: CLR (R1)+ > CLEAR 
CMP Ri, Re "ARE WE 9 
i BLO 1 *BRANCH IF NO 
12702 035500 MOV #0T LAST ADDRESS 
1 177777 2s MOV #-1, (R1)+ : INITIALIZE 
CMP Ri, Re : DONE? 
101 BLOS 28 *LOOP IF NO 
035366 CLR DRVSTA *SET ALL DRIVES TO OFFLINE 
CLR DRVSTA+2 
CLR ORVSTA+4 
DRVST 
1 16 RMVEC ;SETUP THE RH70/RMO3 VECTOR 
1 #1SR. (R3)+ 
1 MOV RMVEC+2, (RB) 
1 14 MOV RMADR, R4 ;FIRST ADDRESS OF 
1 000010 MOV #B81T0S,RMCS2(R4)’ ;MASSBUS INIT 
CLR Ri ;START WITH DRIVE 0 
035744 3S: JSR RO, ORVINT SINIT THE DRIVE 
¢ 3° T OR PARITY ERROR 
105061 035366 4S: CLRB § DRVSTAL(R1) SET DRIVE STATUS TO OFFLINE 
1 cs: INC Ri :GO TO 
177770 BIC #1C7,R1 ; MASK BITS 
136 *BR IF MORE DRIVES TO GO 
012701 000007 MOV #7,R1 i START WITH DRIVE 7 
005037 177776 CLR aaPs ‘CLEAR THE PROCESSOR STATUS 
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SINGLE/DUAL PORT IVER (REV 1.0) 
TSTB DPINT(R1) WAITING FOR DRIVE TO SWITCH PORTS ? 


6S 
BEQ 8S 

SR PC, SET. IE 

7S: TSTB —- DPINT(R1) 

gS 


: 
;BR 
;SET 
‘DRIVE SWITCHED PORTS ? 
Re 46 
60 TO NEXT DRIVE 
Oy «tS )4, 98PS Et THE PROCESSOR STATUS 
ReSreG . REST RO A. Roce 
RTS PC ; BYE-BYE 
-DRIVE INITILIZAT TINE 
: Ths ROUT ne “Ge TERRINES IF A DRIVE EXIST AND IF IT IS 
iN i F I 1S, A “READ-IN PRESET” IS ISSUED AND Free 
i Rone THEY ARE ALL ON Rae ING ON THEIR STATE, 
aa *DRVSTA IS SET TO THE PROPER CONDITION. 
: MOV SORVNUM, Ri ;DRIVE NUMBER TO R 
: MOV RY *UNIBUS ADDRESS OF RH70/RMO3 (RMCS1) 
: ISR RO, ORVINT -CALLED BY A JSR 
: RE “ERROR OCCURRED (PARITY) 
: RETURN2 ?NORMAL RETURN 
g 
DRVINT: MOV RS, -(SP) ; SAVE _RS 
DULP: CLRB DRVSTAC(RI) START DRIVE STATUS AS OFFLINE 
CLRB  DRVTYP(RI) ; CLEAR IVE TYPE INDICATOR 
CLRB §-ULDFLG(R1) : UNLOAD FLAG 
MOV R1, RMCS2(R4) j SELECT A er 
BY Hees tmy retin Banver © SEE ORI 
a | i ;N0---BRANCH 
JSR PC, SET. IE *GO SET “IE” WITHOUT A “TRE” 
BR 6$ : THIS ROUTINE 
1S: CLRB DRVSTA(R1) SET DRIVE STATUS 1° OFFLINE 
BIT #BIT11,RMCS1(R4) ;SEE IF DRIVE AVAILABLE 
BEQ DULP BR IF ORIVE NOT AVAILABLE 
JSR RO, RD.RM *READ THE DRIVE TYPE REG. 
8S ERROR RETURN ADDRESS 
MOV (SP)+,.RS *PUT DRIVE TYPE IN RS 
MOVE &4,DRVTYP(RL)  ;SET INDICATOR 
CMP #20024, RS “SINGLE PORT RMO3 ? 
BEQ 2$ BR IF YES 
CMP #24024, RS *DUAL PORT RMO3 ? 
BEQ BR IF YES 
MOVB §-1,DRVTYP(R1) SET INDICATOR TO ’OTHER’ 
BR 6$ EXIT | 
2S: MOV #121,-(SP) DO A “RERO-IN PRESET” 
JSR RO, WRT. RM 
ie 
MOV 8BIT12,-(SP)  ;SET FMTZ2=1 
JSR RO, WRT: RM 


SEQ 0164 
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7039 036120 036232 8S 
7040 Obie? 004037 O42312 JSR RO,RD.RM READ RMDS 
i iB 10001 hoy .oe OE ato 
13% 116 035502 000016 MOVB  ATABIT(R1),RMAS(RY) ;CLEAR ATTENTION BIT 
144 042312 JSR RO, RD. RM sFIND OUT WHY ATA=1 
150 14 RMER1 
152 036232 BS 
ie Tags Sn Ca 
1 1 t} ‘2 035366 MOVB #-1,DRVSTA(R1) ;SET UNSAFE INDICATOR 
166 000407 BR 6S *EXIT 
; 905105 4g COM RS ii NOL, DPR, ORY, AND W 
oA 167077 BIC #¢C<BIT12#B1T0BtE BITD > RS nae’ oh Ok te ten 
ros eas 000001 035366 MOVB #1. DRVSTA(R1) Re SIV HOt, PR, ONL tNE 
005720 6S: TST (RO)+ *STEP OVER THE ERROR RETURN 
jeg 13 poEgot ~~ 4 1 AENGE INDEX TO ADDRESS WORDS 
70e8 14 reg 003720 035440 — HOV #2000. , TIMER(RL) iste e SEC OInER 
PBs 1ie7el 177777 035406 MOVB a DPINT(R1) iSEL PORT paNITIALIZE INIDICATOR 
1 8S: MOV (SP5+, RS RESTORE 
7064 036234 000200 RTS RO *EXI 
7066 ;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
7068 *CALL 
oe JSR RO, @#RMO3 ;CALL THE RMO3 DRIVER 
7071 : : OF INTER OF DRIVES PARAMETER BLOCK 
7072 : RETURN RETURN HERE QUEUE IS FULL 
7073 : RET *RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
707 1S AN ERROR CONDITION 
076 36 013746 1 RMO3: MOV aaPS,-(SP) SAVE THE CALLING STATUS 
2 013737 035520 177776 MOV RMVEC+2, a8PS § :DON’T ALLOW ANY RMO3 INTERRUPTS 
036250 112737 000001 035432 MOVE —s- 81, ACTDRV ger ACT Ve_DRIVER™ FLAG 
936¢54 AOS SAVREG : - 
036260 O11 MOV (RO), Re PICKUP THE DRIVE PARAMETER BLOCK POINTER 
000016 CLR 16(R2) i CLEAR THE STA INDICATOR 
13504 035514 Oye RRADAY Ry Tee ADBREGS Be RMCS: 
105761 TSTB — DRVSTACR1) “CHECK DRIVES STATUS 
7085 14 BGT 1S “BRANCH IF ONLI 
709? 035434 STB ULDFLG(R1) * UNL OAD COMAAND IN QUEUE? 
1G ° 1 035406 TSTB OPINT(R1) HTRv Ne mu INIT THE DRIVE 
7030 sy 035744 ISR RO, ORVINT 160 INT. THE DRIVE 
7092 105761 035366 TSTB DRVSTACRL) : Is DRIVE STATUS ONLINE? 
ahaa 105761 035416 1S: ate BS R0S(RL) ‘OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
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cs BR IF YES 
R1,RMCS2(R4) ss; cr DRI 

, ORVQUE 3 QUEST IN QUEUE 
$103, 2(R2) 21S THIS REQ. FOR AN UNLOAD? 
$-1,ULDFLG(R1) ; “UNLOAD IN QUEUE” FLAG 
DRVACT(R1) 1S THIS DRIVE ACTIVE? 
8S ‘BR IF YES __ 
PC, OPT CALL THE OPTIMIZER 


aB1T15!81713, 16(R2) eal THE “UNLOAD IN QUEUE” ERROR FLAG 


C17 'GO HANDLE THE PARITY ERROR 
RO, DRVQUE ;PUT REQUEST IN QUEUE 

ITO6, (RY) ‘I BT af tt 
PC, SET. IE :SET THE INTERRUPT 
OR TACR1) >SEE IF ORIVE OFFLINE OR UNSAFE 
#BITIS'BITIY, 16(R2)_ ; INE ERROR INDICATOR 
DRVTYP(R1) : SEE INE OR NONEXISTENT 
aS *BR IF OFFLINE 
ggrristerrol, ie Wid DRIVE NONEXISTENT 
SBITIS!BITI2, 16( ) :DRIVE IS UNSAFE 
(RO)+ Sie RO ORNBL. RETURN 
6s *FINISH op NOR ERT T 

+ ie eRec RD BS 

CLEAR“ ORIVER™ FLAG 

(SP)+, a8PS *RETURN "PS" TO USER LEVEL 
RO “RETURN TO CALLER 


;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 


* CALL 


bpt: 


gees 2 


eesti 


4 
w 
+ 
wo 


10S: 


PC, OPT SETUP A COMMAND 
;SAVE RO - RS 

asPS,-(SP) ‘SAVE PROC. STATUS 
ATABIT(R1), SRCHWT “CLEAR LA SEACH FLAG 
Baines Eg riven oma 
Re’ :1S THERE. A REOUEST IN QUEUE? 
RT RNCS2CRY) i NOAD THe BR IVE SS eeeeeex 
#111, RMCSI(R4Y) ;CLEAR THE DRIVE 

IT11,RMCS1(R4) : T? 
S ;TO PROT T (IF NOT 
DRVSTA(R1) 1S DRIVE ONLINE? 


3 


-11 


: 


eo 


= ba Bs a Fs fo me bee Be ee 


~SSECF RIOR SSSVRRLO = 


NIN NIN NSN NNINNS NSN SINSNSINSINNSNINSINSISSININS SISISINSISNSSINSSINS 


bh 0 bb ee ee fh em he bf Gt ee Ft ee 0 ee 


BBSKKRLSVHSZBVKRISRHSIaroa 


BRaeRSS 


Pl 
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1 
a1e7e2 
000447 
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SINGLE/DUAL PORT DRIVER (REV 1.0) 
BGT 
sau Poe eey Cecapace Rae ERROR 
HOV Si T14, sch) STA INDICATOR 
BPL 8S 0 OXI I eck fot 
MOV ot cexsuarria, tech UNSAFE STATUS/ERROR INDICATOR 
. BR as "BRANEH TO 
7 HOY #111,,-(SP) sLOAD COMMAND ONTO THE STACK 
: RACSI ee $n Te TRGREPERT 
; I ggITL1, (RY) ibe : it ATC HELE a 
, CHPB #150, 2(R2) 1S THE REQUEST FOR 1/0? 
a ,cI4 Cac Ye. commen INITIATOR 
BR 8S “BRANCH TO EXIT 
2s: TST DTUW :DATA UNDERWAY? 
BGE 4g : YES--GO A SEARCH 
TST KFG D0 I SEEKS? 
BMI a i 
ane A RA PERE Oe ON A PARITY ERROR 
BR 4§ +8 
3S: JSR PC,CI1 :ST a pata TRANSFER 
4S: ISR PC, C13 ;START A SEARCH 
cs Bove i 1 (RL) 560,10 THE EXIT INDICATOR 
y HOV fie eT eto SS WORDS 
MOV #10000. rien) a 0, We TIDE TIMER 
6S: BR C17 ess THE PARITY ERROR 
7§: BIT sBtTO6, (RY) SEE IF a ALREADY SET 
Bye SET. IE ‘et od | "Ur THOUT A “TRE” 
QS: MOV (SP)+, aaPs RESTORE PROC. STATUS 
RESREG RESTORE RO - RS 
;COMMAND INITIATOR 
{CALL MOV Ri 08 
: MOV Hit Re : SS OF DPB 
: JSR pc, ct? CI? CI1,CI3, OR CI¥ 
; tye TRANSFER 
: *CI2=SEARCH REQUESTED BY DATA XFER 
: ‘CI4=NOT DATA TRANSFER 
Cll: JSR PC, POPQUE ; T FROM “DRIVES WAIT” QUEUE 
MOV Re, TRNSWT PET REQ IN IN FRANGFER WAIT QUEUE 
MOV Re, R3 DPB ADDRESS TO R3 


SEQ 0167 


M13 
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18i4 SELECT DRIVE 


ha 
i 
é 








Fete if ROO #4,R3 iDESI 
mn 2 i 
1 0 (Ol MOV (R3)+, (RY)+ ; 
is me es Ee ae 
14 03702 JSR RO, WRT. RM > CALL Te ay ROUT INE 
fale ifs ae i BROEE RE rAd Ata. 2 
! 13 HOV (83)+,~(SP) LOAD CYLINDER ADDRESS 
SI hav (RB) (SP) LOAD “COMMAND+GO", “A178Al6", AND “PSEL” 
: 
eee 
HOY om SET “DATA TRANSFER UNDERWAY” 
518 = ROY Ri Brees (RY) i ereeT AORIve 
a 9090 }¢ nov the), = (SP) DESIRED CYLINDER ADDRESS 
RMDC Doane 
CI? 
nests como PUR EIBOE RES ren 10 uno 
; 
: BS mg A, seg De een FS 
nn CC mm tA 
84h ee 
3 5 000131 nov 8131,-(SP) - ;START A SEARCH 
R o4e4 Re RO, WAT. RM 
£ Biss ATABIT(RL) ,SRCHAT SET “SEARCH WAIT” KEY 
H . 
a By Ew BORLA 
re ae auras LOH MEE iam 
7¢ a 10:82), -<(SP) *LOAD DESIRED TRACK & SECTOR 
; it 05,R3 if nae SEE COMMAND 
BNE te + BRANCH 1 NO 
nov 12(R2), (SP) ‘LOAD DESIRED CYLINDER 





MD-11-DZRMF-A RMOZ EXTENDED ORIVE TEST 


OZRAFA.P11 


i A RAR AR RRSK 


22-JUL-77 14:59 





MACYI11 30(1046) 22-JUL-77 16:19 PAGE 137 
SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 


a 
BR Clb 
3S: cee #115,R3 ils iT AN AN "OFFSET" COMMAND? 
JSR RO, RO. RM ERG Th OFFSET OFFSET VALUE NTO RMOF 
id 
MOVB  1(R2), (SP) ;BYTE WHEN LOADING THE 
ISR RO, WRT. RM REGISTER (RMOF) 
a Cl6 
4g: cH $107, R3 iTS eae a “fecal! : RATE” COMMAND 
CHP 117, R3 13 I a RETURN TO CENTER? 
cee $103, R3 IT A “UNLOAD” COMMAND? 
MOVB 81, DRVACT(RI) TIVE INDICATOR 
CRB DVSTACRL Br ee 19" oFFt 
#1, ULDFLG(R1) 
MOV R3, -(SP) ‘Sher 
JSR RO, WRT. RM 
R Sl 
3 PC ;RETURN TO USER 
cs: CMPB #143,R3 1S IT Arse FORMAT" COMMAND? 
By RO, RD.RM *READ THE OFFSET REGISTER 
ed 
MOVB 1(R2),1(SP) ;COMBINE “FMT22™,"ECI", AND "HCI" 
JSR RO, WRT. RM ‘LOAD "FMT22", “ECI", AND/OR “HCI”. 
e 4 
BR 12 
6S: MPB #141, R3 i] ITA aa 3 REGISTER” COMMAND? 
7S: MOV 6(R2),R3 jPOINTS a 1ST ADDRESS OF 
oe ea De aed 
8$ JSR RO, RO. RM ; RH70/RMO3_ REGISTER 
RCS ’ INDEX OF REG. TO READ 
MOV (SP)+, (R3)+ OF RH70//RMO3 REG. 
CMP 9$.RS° ithe FEC, BEEN READ” 
BEQ i2$ iF YES 
R00 42,98 : ents THE INDEX BY 2 
=a) ei TELA Siege! GRIVE” Comment 
11$: MOV R3,-(SP) *LOAD THE 
JSR RO; WRT.RM 
RMCS1 


SEQ 0169 


: 


PRERR Uso dia ae Runner See Peete eae each pate i 
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Pll 22- 
037522 037610 C17 
3s4e2 128: JSR PC, POPQUE ;REMOVE REQ. FROM QUEUE 
000016 BIS s6tT07,16(R2)  ;SET THE “DONE” BIT 
SAVEFG : SAVE -FH7O/RMOS REGISTERS? 
037550 000207 13$ RTS re me USER a 
1 CIS: ASL Ri ? 
i 001750 035460 nov #1000. , TIMER(R1) ;SET A ONE SECOND TIMER 
112761 000001 035356 nove al, , DRVACT(R1) sSET Ute DRIVE ACTIVE 
years Clé: MOV R3, “ASP, + 5AD THE C 
004037 042472 ISR RO, WRT. RM 
east ey 
1 C17 
000761 BR cIs 
: Se76H 010000 000010 CI?: BIT $1712, RMCS2(RY) ad PRIVE NON-EXISTENT ? 
som te alee 
494000 000016 HOV aa /Tis/BIT11, 1612) iSET “PARITY” ERROR _INDICATOR 
’ tf] 
ree Stic? 900111 CI7B: oe ahs Se ;00 A “DRIVE CLEAR” 
037650 037710 C18 
DSc JSR PC, EMPTY EMPTY QUELE nae 
537 bbe { i gre ota} ‘DRIVE IS IDLE deren 
C3766 Goi 37 035500 CMP R1, DTU IF THIS DRIVE HAD AN I/0 REQUEST 
ve rl BNE 15 IN PROGRESS CLEAR ALL OF THE FLAGS 
G37700 012737 ene 035500 MOV Hi 5 TUM 
1S: RTS PC 
10 104412 CI8: § SAVRE ;SAVE RO - RS 
1 010000 oo0r10 BIT 8B1T12,RMCS2(R4)’ :IS NED’ SET ? 
1002 BNE is BR IF YES 
CLR R3 
=/el 035356 1S: STB DRVACT(R1) ; DRIVE ACTIVE? 
O77 013702 O3SHes MOV TRNSWT, Re ort Te “TRANSFER WAIT” QUEUE 
aie eee ee DID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 
Raoue 043520 GETREQ Beene DPB POINTER 
037752 0057Ge : 2s: TST Re’ j QUEUE ENTRY FOR DRIVE ? 
C376 010000 000010 Be sIT12, RMCS2(R4)" ;*NED’ SET ? 
I BEQ 3$ -BR IF NOT 
037766 ike 100002 000016 HOV ag1TIS!BITO1, , 16¢ m a *DRIVE NON-EXISTENT’ INDICATOR 
B37708 1 72 192000 000016 3S: Hoy 88171581710, s1eche) {SET * yanog ecist EARABLE. PARITY” ERROR INDICATOR 
eats 12763 75997 035460 4S: MOV 8-1 TIMER(RS)  ;STOP THE TIME 
040016 105061 CLRB  DRVACT(R1) SET “DRIVE ACTIVE” TO IDLE 





C14 
DORA PIT * Sonu cso TS) SPRMLE Boal PBar RazD/Rincs OREVER cREV 1.8) seo 0171 








735 GeO 37 035500 cue By, OTM is THIS. DRIVE SETUP FOR A TRANSFER 
7307 Ser 27 Wee 035500 $-1 ,DTUM RESET I 
1 cs aR (R1) fie FLAG — 
7 cares nyteee 000019 = gi Re MoO eRe cocpyy CRED” SET? 
1 1021 BNE 3 BR IF YES 
INC Ri pe *MOVE TO THE NEXT DRIVE 
1 ea BIC a7, R1 
1316 BNE is BRANCH IF MORE DRIVES 
7306 77777 035500 MOV $-1, OTUW NO DATA Y 
heeuos CLR TRNSWT ERR THE ’ WAIT’ QUEUE 
7388 043346 JSR PC, CLRQUE CLEAR ALL OF THE REQUEST QUEUES 
01 000040 000010 HOV set TOS, RrICS2 (RY) 00,8 MASSBUS INIT. 
004 043424 6S: JSR PC, EMPTYQ CLEAR T 
105061 035365 CLRB © DRVSTA(RI) ;SET ae TO OFFLINE. 
7333 ORVTYP(R1) icles The INDICATOR 
3002 7S: ISR PC, SET. IE “SET “IE” ui tHouT “TRE” 
7395 104413 RESREG RESTORE RO - 
73% 000207 RTS PC : 
533g *LOOK AHEAD ROUT 
7338 iL ROUTINE 
7400 * CALL 
7401 : MOV SORVNUM, R1 ;DRIVE NUMBER 
7402 : MOV #0PB, R2 :POINT TO DPB 
7403 : JSR RO,LA GO CHECK THE WINDOW 
7404 : RETURN ERROR RETURN 
7405 : RETURN2 START A SEARCH 
3 : RETURNS START A DATA TRANSFER 
144 O01 035514 LA: MOV RMADR , R4 GET RMCS1’S ADDRESS 
La ye seat 000010 MOV R1, RMCS2(R4) >SELECT DRIVE 
m0 OvO15H DOH03 042312 ISR RO, RD. RM *READ DRIVE STATUS 
Pile BaOTee 04031 i a. -ERROR RETURN ADDRESS 
7413 O40164 042716 157577 BIC ##¢020200,(SP) ;O0N CYLINDER ? 
mis 170 227eb 00200 ch , (SP)4 oo 
mie ineea! 035444 INCB LACNT(RI ‘INCREMENT THE LOOK AHEAD COUNT 
m7 : 126137 O35444 o3sS2e CHP LECHTCRL) ,PXLACT = EXCEED MAX? 
7419 8 heeds aE 000010 MOVB  10(R2),R3 GET DESIRED SECTOR ADDRESS AND 
7420 16 Miete SWAB sé ;MULT. BY 64--ALIGN WITH 
rel ree ASR R3 *LOOK AHEAD REGISTER 
74 1 000340 177776 MOV uo asPs paente LEVEL "7" 
Piss i 042312 6S: ISR RO, RO. RM *READ LOOK AHEAD REGISTER 
Pun us 
74 r. i ” 
a eS ae = EE secret alee: 
(SP)+ K 
7430 O402S2 O004iS BR 3 
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035432 


NGLE/DUAL PORT RH70/RMO3 

7$: SUB (SP)+,R3 
fob #32. #64.>,R3 

1S: MXDLTA,R3 
BLT 3$ 
CMP MNOLTA, R3 
BGE 3$ 

2s: CLRB = LACNT(R1) 
TST (RO)+ 

3S: TST (RO)+ 
BR ss 

4§: JSR PC,CI7 

Ss: RTS RO 


; INTERRUPT SERVICE ROUTINE 
ISR: MOVB #1,ACTORV 


SAVREG 
MOV RMADR, RY 
MOV DTUW, RL 
BLT 1§ 
ISR PC, TD 
BR 2s 

1$ ISR PC, SC 
RESREG 

ACTORV 

RTI 


; TRANSFER DONE ROUTINE 


TD: CLRB T(R1) 
MOV a1 TUN 


Rl 
MOV #-1, TIMER(R1) 
ASR Ri 
MOV TRNSWT, Re 
CLR TRNSWT 
BIS #81707, 16(R2) 
MOV Ri, RNCSE (RY) 
JSR * RD. RM 
RMCS1 
CI? 
ROL (SP)+ 
Pot ¢ 
BPL 1S 
Ke ISR PC, SVRH70 
JSR PC, GETREQ 
TST R2 
BEQ 2 
ISR PC, OPT 
BR SC 


PAGE 140 
VER (REV 1.0) 


;CALCULATE THE DELTA 
OMeeK THe vee POSTIVE 
ere oo Tt YES, ZR Thao 


‘AND TPKE THE 1/0 EXIT 


;003 THE RETURN ADDRESS 
; PROCESS THE ERROR 


ery “ACTIVE DRIVER” FLAG 
OF RHSCS1 
foo “DATA TRANSFER UNDERWAY” INDICATOR 
; BRANCH IF NO DATA TRANSFER UNDERWAY 
TRANSFER DONE 


EXIT 
;CALL SPECIAL CONDITIONS 


 eag Sache Drover FLAG 


;SET DRIVE ACTIVE INDICATOR TO IDLE 
;NO DATA TRANSFERS UNDERWAY 


;CANCEL TIMEOUT 


i Hfhensren wal GUELE™-cLEAR QUEUE 
Reet ERM ren 


iSive THE 

; RH70/RMO3 REGISTERS? 
;BRANCH IF NO 

;YES--SAVE THE REGISTERS 

;GET DPB POINTER 

SENTRY FOR DRIVE ? 

;BR IF re 


dt OPTIMIZER 
OTHER DRIVES 


* CHECK 
- THE RELEASE DRIVE COMMAND IS FORECO TO ENTER F FOR DUAL PORT OPERATION 
RELEASE THE DRIVE 


2s: #113, (RY) 
BR Sc 


;CHECK FOR OTHER DRIVES 


SEQ 0172 








SEQ 0173 


zg 
. s : : 
ag y a ae -— fre & 
24 & ~ a = Ss ~“ 28 tn te : 
fe BE seg ge. ee EE 
gprs epglt | SRE EER BAe 6 Gee 
aeee ze, ei 5 2 wg & aa e Pyles 
co Sythe; = hE 8828 ds BY cok MG Ceceee So's Byes 
eS "S§ fot@E ut fo “SRoe sett we ve awe 
Be us a. peer eae rae : saan ada ate 
a ee ee get oe 
Tse 3 
ids g 
nt sree Free Lee s 2 Gime! 32 
en ae eee eee 
ir Gevicn § End Sng ve tcceroe it oRectegeninses Eganntoss 
=@ SRRSEs : SunpedenenesSecres dares hoe fama buryee by 
ge % Bg “3 88 #8 & & 48 
ae w 
: : 
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DRIVE TEST MACY11 30(104%6) 22-JUL-77 16:19 PAGE 142 
14:59 SINGLE/DUAL PORT Raza SRNOS obfide (REV 1.0) SEQ 0174 
004737 041476 JSR PC,SC12 ; ‘ RMER2, AND RMMR2 

bA'So DOR DRVINT’ ee” 

§ 


1 035406 6S: TSTB —OPINT(R1) : ? 
BNE Sc4 *BR IF YES ON MORE DRIVES 
i 4 035366 STB DRVSTACRI) i He ON *§ STATUS 
BMI ; 
pe0000 035352 BIT #81713, RMERRS+4 ; ADORESS PLUG CHANGED ? 
000113 13 -(SP) : 
042472 , WAT. RM 


® 
- 


ae 
oon 
3 
Bae 
a 
n 


7$: MOV 


2 

2 
= 
"8 

aa 
as 
i 
a 
g 


010 000677 vs BR Sc4 GO CHECK FOR MORE ATA’S 
ME 004037 043610 JSR RO,ES. SAV iSAVET THE 0 ORESS IN. 'SE * SESCAPE 
016 104005 ERROR 5 ORT 
Goes sce: PaO eid cee ee 
12761 177777 035460 MOV #-1, TIMER(R1) THE TIMER 
ASR R1 esto VE ADDRESS 
JSR PC, GETREQ i DPB POINTER FROM THE QUEUE 
RO, RD. RM BEL THe aonig’s STATUS REG. 


ae 
ge 


= 
ao 


RS sAND PUT IT_IN RS 
: AN ERROR? 


T(RL) ere Ek 'S STATE 


ce 


Spieenaee rayne 





Pe an Pt ee ee Pet an bn Be ee ies frme be es pee et Be ee me bb 8 bn 0 on De Bt Bes fee Pe ee a bm bee bo oh pe 


903132 BGT SC11 i 2 ae te ACTIVE WITH ORDER 
be 100210 000016 BIS S81T15!B1T07!B1T 16¢ USER OF ERROR RECOVER COMPLETION 
1 042312 1S: JSR RO, RO.RM ;READ ERROR REGISTER #1 

1 14 RMERI 

i te aOY (SP)+, RS sAND SAVE IT IN RS 

1 Oona? ove 4 JSR PC, SVRH70 SAVE RH70/RMO3 REGISTERS 

1 2746 111 MOV #i11.-(SP) ISSUE A DRIVE CLEAR 

1 042472 JSR RO, WRT. RM 

1 RMCS1 

1 1336 Sc8 

1 1 SCBA: ROL RS ;WAS “UNSAFE™ CONDITION =1? 

im 1 BMI 1$ *BRANCH IF YES 

1 TST R2 SANYTHING IN QUEUE ? 

1 44 Q SC7 *BR IF NOT 

i 100240 000016 BIS a81T15!B1T07!B1708, 16(R2) ; INFORM USER OF ERROR 
1 042312 1S: JSR RO, RD.RM READ DRIVE STATUS REG. #1 

1 Ole RMOS 

i 1 Sc8 

162 011605 (SP),RS ;SAVE RMDS IN RS 

16s 006126 ROL (SP)4+ "ERR"=1? 

166 100011 BPL 2$ BR IF NO--UNSAFE CLEARED 
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22-JUL-77 14:59 SINGLE/DUAL PORT (REV 1.0) SEQ 0175 
77777 035366 MOVB sal TACR1) ;DRIVE_IS UNSAFE 
AEE ISR PC “SAVE RH70/RMO3 REGISTERS 
110000 000016 BIS s6iT1S'BIT12, 16(R2) ; INFORM USER OF UNSAFE ERROR 
o 010000 2s: IT 1712,RS jatiOte =1? 
12761 177777 035350 MOVB  &-1,DRVACT(R1) ACTIVE ERROR RECOVER 
iiesst 000001 035366 HOVE 41 ,DRVSTACRI) : ONLINE 
1 072460 035460 HOV #30000. , TIMER(RL) START 30 SECOND TIMER 
rare Oipei8 000016 ve $61715!B1T07!B1TO4 16(R2) ; INFORM USER OF ERROR 
105061 035356 SC7 CLRB DRVACT(RI) sDRIVE IS IOLE 
Rats fafa G(R1) ; UNLOAD N SS OR QUEUE? 


is (R1) BRR ry 

BEPBTS CRI) RMASCAYD Re TENTION BIT 
ACR) ; THe OR ve UNSAFE ? 

#113, -(SP) ioe Ted fe 

RO, WAT. RM ;WRITE THE COMMAND INTO RPCSI 


Saecae 000016 1S: 
035365 


zuasaa 


7 


3 
= 
a 
8 


137 10 JMP Sc4 "CHECK FOR MORE DRI 
: 035356 Sc ITB DRVACT(RI) -1S DRIVE IDLE? 
737 043520 JSR PC, GETREQ OFF POINTER 
037610 ISP PC;CI7 ; PROCESS THE PARITY ERROR 
BR 2 : NUE 
037636 1S JSR PC, CI7B "PROCESS THE UNCORRECTABLE PARITY ERROR 
ester if ic Oab IN PROGRESS" 
il STB G(R1) = QAO IN P ss"? 
105061 035434 = CLRB ULDELG(RI) i CLEAR UNL OFD FLAG 
15708} Pecos 035430 sie SrPBTT (RL), SRCHME sDOING A BEECH OPERATION FOR 
*AN 1/0 COMMAND? 
1012 BNE 2s ;BRANCH IF YES 
737 o43S4e2 ISR PC, POPQUE * REMOVE REQUEST FROM QUEUE 
000200 000016 BIS eBtT07,16(R2)  ;SET ” IT 
035454 rst G : SAVE -REGISTERS? 
bos 042664 JSR PC, SVRH70 *YES--SAVE ALL OF RH70/RMO3 REG’S 
116164 035502 O00016 2s MOVE ATABIT(R1),RMAS(RY) ;CLEAR ATTENTION BIT 
46 q 035502 035430 BICB RTABITCRI),SRCHHT : wie IMPLIED SEEK SET 
12761 177777 O3S460 MOV 8-1, TIMER(RI) ;STOP CLOCK 
ee cs fr PS ae 
Oba 1 IMP ae *CHECK FOR DRIVES 
10164 000010 SCl12: MOV RI,RMCS2(R4) —; T DRIVE 
Diba? 9000112 MOV RMOS(R4) RMERRS :SAVE THE FOUR REGISTERS THAT 
164 14 MOV RMERI (R4S , RMERRS+ ;WILL TELL US SOMETHING 
016437 o00042 035352 MOV RMER2 (RY), RMERRS+4 


? 
5 


> 
a] 
— 
cs 
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PRSEVRUREUL SES RARE Ata 
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RMO3 EXTENDED DRIVE TEST MACY11 30(1046) 22-JUL-77 16:19 PAGE 144 
22-JUL-77 14:59 SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) SEQ 0176 
016437 000040 035354 MOV RMMR2 (R4) , RMERRS+6 
035744 ISR RO, DRVINT ; INIT. THE STATE OF THE DRIVE 
BR 1s *TAKE ERROR EXIT 
1S: TST (SP)+ : OFF _OF STACK 
; THE PARI Y SERROR 
1 SC13: ASL Ri ‘SETUP TO ADDRESS WORDS 
bieett 177777 035460 HOY — , TIMER(R1) iSTOP THE TIMER 
it i hee 000016 Nove RAB T eR TAL), Sows ay SELECT ORE TION BIT 
igs7et 035406 1S: TSTB Bernt (Ri ihariaizt ’ Ne THE DAT 
CLRB INT(RL N IT INDICATOR 
i SEM ce im | Gea 
DUMY PARITY ERROR RETURN 
1 035366 TSTB = DRVSTACR1) DRIVE 
4 2s :BR I w= START 
TST Re * QUEUE FOR THE OBR IVE 
poles BEQ 7. are oR a NOT ee 
rt 000016 are if 1S'BITI4, 16( Onn R THAT DRIVE OFFLINE 
mre he A eT ND ag ok 
KA 043424 JSR PC, EMPTYQ EMPTY THE Ree OLeSt QUEUE 
nee oo4000 000000 2S: BIT I1T11,RMCS1(R4) DVA SET 
1006 BNE 4s sSET Teh ca CALL OPT 
1 023420 035460 MOV #10000. , TIMER(R1) 
ried 4g: ISR PC, OPT START THE PENDING REQUEST 
000137 040610 3$: IMP sc4 ‘PROCESS OTHER DRIVES 
; /RMOS TIMER ROUTINE 
: MOV #TIME,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
. JSR PC, RPTMR *CALL RMO3 TIME ROUTINE 
005737 035432 RPTMR: TST ACTORV ;CHECK “ACTORV & ACTSTR™ 
001027 § sir NON ZERO EXIT 
1732 000001 035433 MOVE #1, ACTSTR TSTR” 
2 SAVREG 
I CLR RL ian WITH DRIVE 0 
763 035460 1S: TST TIMER(R3) 31S THE TIMER RUNNING? 
BLT es : IF NO 
oo00002 035460 SUB (SP), TIMER(R3) ; I 
BGT “BR IF_NO SOFTWARE TIMEOUT 
041774 ISR PC, STO *CAL TWARE TIMEOUT ROUTINE 
1 2s INC Ri ROVE NEXT ORI 
005723 TST (R3)+ 
000010 CMP #8. ,R1 : IVES? 
BGT 1$ : F NO 
10441 3S: RESREG ‘RESTORE RO - RS 
105037 035433 CLRB. ACTSTR :ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 


PORTE Ue aCe eee RCL E BURL PORT eur art Ite fae (REV 103 SEQ 0177 


Pra ren RRR un ones SPST EERE DANN DADAM AD AnD NRG 


4 
& 





041770 012616 4S: MOV (SP)+, (SP) ADJUST THE STACK 
041772 000207 RTS PC * RETURN 
;SOFTWARE TIMEOUT ROUTINE 
NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
: OR GREATER 
*CALL: STO 
: ,Rl DRIVE NUMBER 
: ISR PC, STO ‘CALL 
; RETURN 
1774 Ol STO MOV R1,-(SP) , R 
Bat o5e pte MOV '-(5P) i ave RB 
042000 010346 MOV R3,- (SP) : R3 
Bisa vs a a 
035514 RY GET ADDRESS OF “RMCS1” 
042010 010164 000010 MOV R1,RMCS2(R4)  ;SELECT THE OR 
ia i 042312 ISR RO, RD. RM "READ “DRIVE STATUS REG” 
ts en sat 
t BMI ST02 oR IF YES | 
105761 035406 STO1: TSTB  ODPINT(R1) ‘TRYING TO INTIALIZE THE DRIVE ? 
met a BPRO (RL) he: NG PORT REQUEST FOR THE DRIVE ? 
pisos gree BFGB° Fa 
e044 MOV TRNSHT, Re ;PICKUP TRANSFER WAIT QUEUE 
CMP R1, OTUW ; ON THIS DRIVE? 
BEQ 1§ Ir 
IMP ST09 VIF NOT DON’T BOTHER DRIVES 
000016 1S sR TRE 09. 1e(Aon 
3 ce eae citi 
3100 000010 MOV #BtTOS, RMCS2(R4)’;"INIT° THE MASS BUS 
ove! cLRB bevacTtR1) sORIVE IS IDLE 
i Gere ehBet COATT BOTHER OTHER DRIVES 
1 STO2: MOVB RMAS(RY).RS hk: 
i BITB BTABIT(RL) ,RS IS A ION FOR THIS DRIVE UP ? 
1 TSTB —s DPINT(R1) i TRYpNS ve INTIALIZE THE D THE DRIVE ? 
1 BHE STO6 ONL INE 
1 TSTB OPRQS(R1) j OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
he BNE 107 : F NES NO RESPONSE TO REQUEST 
1 STO3: TSTB ODPINT(R1) INTIAL THE DRIVE ? 
1 : I NI ING 
1 TSTB = OPRQS(R1) ‘PORT REQUEST PENDING ? 
162 Q BR IF NOT 
164 035460 1S: HOV ao} TIMER(R3) j STOP THE TIMER 
oy 174 STOS: ISR Pc, CIs GO HANDLE THE PARITY ERROR 
busSpe Sos ST06: CLRB  OPINT(RI) ;CLEAR THE INITIALIZE INDICATOR 
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roa Biers ate Gly ese 
7801 
7804 000002 
a 
1 
1 
781 
7ais 
rf 
1 
i 
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7DUAL 
CLRB V DRVSTA(RI atk -SET UNIT OFFLINE 
Bs, ATER PS) sST0P THE TIMER eecs 
TST "REQUEST IN QUEUE ? 
BEQ Bog ‘BR IF NO 
BIS eG1T15!BITIM, ott | aha THE USER DRIVE NOT AVAILABLE 
ST07: MOV 8-1, TIMER(R3)  ;STOP THE TIMER 
CLRB  DPROS(RI) i CLEAR PORT REQUEST INDICATOR 
13k PC, GETREQ ; GE 
TST DRIVE ? 
BEQ STO9 : BR 
MOV aeIT 151812, 16(Re) INFORM USER OF PORT REQUEST ERROR 
sTog: JSR J EMPT THE QUEUE FOR THE DRIVE 
JSR PC SAVE THE REGISTERS 
STO9: MOV (SP)+,R4 *RESTORE RY 
MOV (SP)+/R3 j REST ORE R3 
MOV (SP)+)R2 *RESTORE Re 
MOV (SP)+/RI "RESTORE RI 
RTS PC + RE 


;ROUTINE TO READ A RH70/RMO3 REGISTER 


CALL 


JSR _—RO, RD. RM 
: INDEX 
: ERRADR 
: RETURN 
RD.RM: MOV MCPEMX, RD. RM2 
aes oe 
ADD (RO)+,RD.ADR 
RO. RMI MOV a(PC)4, (PC)+ 
RD. WRD: “HoRD 5 
MOV RO.WRD, 2(SP) 
my eee 
BIT seriie: acs 
MOV JRMADR, - (SP) 
BIT #81713, (SP) 
cHP {SP +, (RO)+ 
1S: ° 
JSR RO,ES.SAV 
ERROR 3 
TST DTUM 
BMI 2s 
BI SBITIM, (SP) 
aro (SP)+ 
RD. RM 


;GO0 READ A Reet Te 
iREG. INDEX 
ADDRESS--PROCESS ERROR STARTING 


a: REG. IS ON THE STACK 


AVE RO_FOR RETURN. 


Hin he BRGE And THE THO 


“ee *™ 
T USER 
S2 


sr? 


FORM THE SS OF 
*CHECK THE ’NED’ BIT 

*BR IF DRIVE NON-EXISTENT 
READ RMCS1 

*DID SET? 

‘BRANCH IF YES 

‘ADJUST FOR RETURN 

;EXIT 


;SAVE THE ADDRESS IN *SESCAPE’ 
REPORT © 

;DATA TRANSFER UNDERWAY? 
tNO--"TRE™=1? 

;NO--BRANCH 

:YES--CLEAN OFF THE STACK AND 
TAKE THE FATAL ERROR EXIT 


MD-11-DZRMF-A RMO3 


OZRMFA.P11 22-JUL-77 14:59 
7823 O4e432 052716 040000 2s: te 
ead o4e4S4 MOV 
INC 
MOVB 
3$: . WORD 
DEC 
RO.RM2: .WORD 
BGE 
RD.RM3: MOV 
MOV 
RD.RMY: RTS 


° 
CALL 
$ MOV 
: JSR 
: INDEX 
: EET RN 
035512 O426S50 WRT.RM: MOV 
042560 MOV 
MOV 
042562 MOV 
BNE 
000150 o42560 cre 
042312 JSR 
RNCS1 
WRT.R3 
SWAB 
177770 BIC 
042561 MOVB 
035514 o42562 1S: ADD 
WRT.R1: MOV 
WRT.WO: .WORD 
WRT.AD: . WORD 
035514 MOV 
000010 ADD 
010000 BIT 
BNE 
042312 JSR 
RMER1 
WRT .R 
000010 BIT 
BEQ 
477778 042632 MOV 
23le JSR 
1$: . WORD 
WRT .R3 
043610 JSR 
ERROR 
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T RH70/RMO3 DRIVER (REV 1.0) 


;ROUTINE TO WRITE A REGISTER 


eBIT1H, (SP) mR a iain A "1" TO “TRE” 
REPO, 25 POs POSITION EOE i 
(SP)+, ,O(PC)+ =; WRITE money ron BYTE OF RMCS1 
apis tPRCEE . RETRYS 
RD. RM1 BRANCH IF NO_ 
(RO), RO “FATAL ERROR EXIT 
(SP)4, (SP) 
RO 
DATA, -(SP) spATA TO 
RO, WRT. The ROUT ‘aet T0 LOAD CORTTE) THE REG. 
HTNOEX OF REGISTER 10 be LOADED 
MCPEMX,WRT.R2  ;MAX QHED 
2S) oT WO i save f == 
(RO)+, WRT AD ane fe oF GISTER TO BE WRITTEN 
#150, WRT. WD its. FOR DATA TRANSFERS? 
1$ : THE OLD Al6 & AI7, & PSEL 
RO,RD.RM :NO- BING AlG3A17, & PSEL WITH 
THE COMMAND BEFORE Boe CenDING IT TO 
>THE RH70/RNO3 
(SP) 
8tC7, (SP) 
(SP)+, WRT. WD+1 
RMADR;WRT.AD =; FORM THE S OF THE DISK REG. 
PC)+/a(PC)+ LOAD I DESIRED REG. 


( 
0 reas WRIT HERE 
SP : ABopece hit STACK 
SP FORM OF RMCS2 
CHECK 


Saeed. (SP) THE 

eB1T12,a(SP)+ : cia IT 

WRT. *BR IF DRIVE RON-EXISTENT 

RO, RD. RM CHECK FOR PARITY ERROR ON WRITE 
#B1T03, (SP)+ 

WRT. RY BRANCH IF “PAR=0" 

-2(RO), 1S * PICKUP NDEX 

RO, RO. RM "READ THE 

' RETURN hone RODRESS ON ERROR 
RO,ES. SAV ; SAVE THE 8 geen ape’ 

4 PORITY ON WRITE ERROR 
(SP)+ ica OFF THE STAC 

(PC)+ CREMENT T ERROR COUNT 


SEQ 0179 
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DZRMFA.P11 abe Tee 14:59 SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) SEQ 0180 
7879 WRT.R2: .WORD 3 RETRY COUNTER 
7880 BGE WRT.R1 TRY AGAIN IF NOT FINISHED 
7881 il WRT .R3: HOV (RO) RO ii THE “PARITY ON WRITE” ERROR EXIT 
Oos7e0 WRT.RY: ST (RO)+ ‘ADJUST FOR ERROR FREE EXIT 
WRT.RS: RTS RO 
7886 ROUTINE TO SAVE THE RH70/RPO4/S/RMO3 REGISTERS AS PER DPB+14 
14 *CALL 
: MOV SOPBNUM, R2 ;DP8 POINTER TO Re 
‘ : JSR PC, SVRH?70 ‘SAVE THE DRIVES REG’S 
SVRH70: G ; - 
7s 4 . Re iGueve ENTRY FOR THE DRIVE ? 
1442 BEQ 6$ :BR IF 
13704 14 MOV RMADR, RY 
il 264 10 MOVB  (R2),RMCS2(R4) ;SELECT DRIVE 
1 14 MOV 14(R2) ,R3 :GET ERROR TABLE POINTER 
4 BEG jEXIT F NO S 
aa te Gur 
ooooz2 1S: CMP , #RMDB : BUFFER REGISTER ? 
790 90100 BNE 2s :BR IF 
oo00200 000010 BIT 881707, RNCS2CRY) ai 8" SET ? 
Gostes CLR (R3)+ IST aoe AS ZEROES 
BR 4§ > CONT INUE 
rane 042312 2s: JSR RO, RD. RM : SELECTED REGISTER 
3S: .WORD O ;REG : INDEX 
7308 Rov (SP)+. (R3)+ STORE REGISTER CONTENTS 
i $53 042744 00004 4S: Cie 38, aRheCe REACHED Re ene 
Pale Ls ooo002 042744 BO #2, 35 iP AEN THE REGISTER INDEX 
731 00731 BR is NUE ING gi REGISTERS 
14 037610 cS: ISR ,CI? CONT THE UNCORRECTABLE PARITY ERROR 
7915 104413 6S: RESREG *RESTORE RO - RS 
pais 000207 RTS PC ? RETURN 
7aig j ROUT INE TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 
La SDRVNUM, R1 ;DRIVE NUMBER TO R1 
7384 IR oy PC, SET. fE -SET “IE™ 
Page ou300e : MOV R4, -(SP) ;SAVE RY 
MOV RMADR. RY *PICKUP ADDRESS OF RMCS1 
race 10 MOV R1,RMCS2(R4) ;SELECT DRIVE 
14 MOV (R4),-(SP) *READ RMCS1 
BIS apitl4, (SP) :SET THe Re” 8 BIT OF THE WORD READ 
a +3 #B1T06, (RY) :80 DUS Tee 
BIT [ee is. “NED =I? ae 
7333 o¥3040 Ist (SP)+ “CLEAN OFF THE STACK 





M14 
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gre wevewwey wuuuevey euvuseey Evsassaas 
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ei 
QORVe 
ee 
Br 
INTERS 
QORVO 
ca 
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QORVS 
an 
QORVO 
a 
QORV3 
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QTERM 
1. 
fi 
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SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 


t # 
e OBTE 
i 
H 
rT: 
i 
a | 
‘ 
WORD 
= 
2 
iE 





aay SESEESES Sees «| Seve! SuNeNaNG 


53444246 686544844 644644444 


fae ein a2 Cee BSN SRY GRANEATYS 


55050055 SESEESEE ELELEBEES 


_REREEEF FETS 757 SBOP SE SDSERED ETE 
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OZRMFA.P11  22-JUL-77 14:59 SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) SEQ 0182 
7333 043346 QTERM=. 
;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES ' 
* CALL 
: JSR PC, CLRQUE 
CLRQUE: SAVREG ;SAVE RO - RS 
043054 MOV ; . QUEUE COUNTS 
CLR (Re)+ ; Wee | 
CLR (R2)+ ;0R & 
CLR (R2)+ :DRIVES 485 
CLR - (R2)+ jDRIVES 6 é 7 
Test SY CUROSTART.RI OUR TARE OMEUE_INTO 
1$: OV if 1)+, (Re)+ TRS GUEUE INPUT POINT 
BNE is 
000010 MOV 88. ,R3 ; MOVE THE STARTING ADDRESS 
043124 MOV SQSTART,R1 +:  ;0F THE QUEUE INTO THE 
2s: MOV (R1)+, (R2)+ ‘QUEUE OUTPUT POINTER 
DEC R3 
BNE 2s 
RESREG ;RESTORE RO - RS 
RTS PC 
sEMPTY THE QUEUE SPECIFIED BY R1 
* CALL 
: MOV DRVNUM, R1 ;DRIVE NUMBER TO R1 
: JSR PC, EMPTY@ 
043054 EMPTYQ: cLRE QCNT(RI) ;CLEAR NUMBER OF ITEMS IN QUEUE 
043064 043104 HOV GENeT RL) QOUTPTCRL? ;SET OUTPUT QUEUE POINTER=INPUT POINTER 
RTS PC 
ROUTINE TO PUT A REQUEST IN QUEUE 
> CALL | 
DRIVE NUMBER 


MAgSS 
ie 





000010 043054 DRVQUE: 810,QCNT(R1)  ;IS QUEUE FULL? . 
: BEQ 2 *BR IF YES-TAKE RETURN 
043054 INCE QENTCRL) INCREMENT QUEUE COUNT 
3064 MOV ,@QINPT(R1)  ;PUT THIS REQUEST IN QUEUE 
tree 043064 ADD 82, QI )  :UPDATE 
043064 043126 CHP QIAPT(R1) , @STOPCRL) LIM T9 | RESET THE POINTER 
043124 043064 MOV QSTART(R1),QINPT(RI) ;YES--RESET POINTER 


@moow 
ara 
Res 





B15 
PAPI So-TUL“7? 14:58 SINGLE/BURL PORT RE7O/RNGG DRIVER (REV 1.0) seo 0189 


MD- 
OZRMFA. 
8047 043512 006201 1S: ASR Ri 
Bove 3514 005720 TST (RO)+ TAKE RETURN 2 
Bows 3516 000200 2s: RTS RO *RETURN TO USER 
051 ;ROUTINE TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUEUE 
> CALL 
ate : MOV SORVNUM, RI ;DRIVE NUMBER TO Ri 
BOSS : JSR PC, GETREQ GO GET THE REQUEST 
8055 : RETURN ‘R2="DPB” ADDRESS OF THE REQUEST 
8057 : *R2=0 IF NO REQUEST IN QUEUE 
8059 043520 ojso02 GETRE@: CLR R2 
8060 043522 105761 043054 TSTB = QCNT(R1) 1S THERE ANY REQUEST IN QUEUE? 
8061 043526 001404 BEQ 2s :NO---BRANCH 
8062 043530 006301 1S: ASL Al 
8063 043532 017102 043104 MOV QQOUTPT(R1),R2 ;PICKUP “DPB” POINTER FOR THIS DRIVE 
8064 043536 006201 ASR Ri 
8065 043540 000207 2S: RTS PC RETURN TO USER 
Boe %; ;ROUTINE TO “POP” THE REQUEST FROM QUEUE 
oi = 
: MOV 8ORVNUM, R1 ;DRIVE NUMBER TO R 
8071 : ISR PC, POPQUE *CALL TO REMOVE REQUEST 
8072 : RETURN *RE=ADDRESS OF DPB REMOVED 
pie 3542 105361 043054 POPQUE: DECB (RL) sDECREMENT QUEUE COUNT 
8075 est 1 ASL i F 
8076 O04 17102 043104 MOV QQOUTPT(R1),R2 ;GET THE “DPB” POINTER 
8077 043554 005071 043104 CLR (R1) : DPB ADDRESS FROM THE QUEUE 
B78 062761 000002 043104 ADD #2, QOUTPT(R1) j UPDATE THE QUELIE POINTER 
ie 6161 043104 043126 cw QodTP TCRL) ,QSTOPLRL ) : TIME TO RESET THE POINTER? 
8081 043576 016161 043124 043104 MOV QSTART(R1),QOUTPT(R1) ;YES--RESET THE POINTER 
043604 006201 1S: ASR Ri 
8083 043606 000207 RTS RETURN TO USER 
Bose ROUTINE TO SAVE THE CONTENTS OF ’SESCAPE’ WHEN THE DRIVER 
8086 *REPORTS AN ERROR DIRECTLY. 
epee Of CALL 
8089 : JSR RO,ES.SAV 
8090 : ERROR N ;: THE ERROR CALL 
8091 : RETURN THE RETURN IS PAST THE ERROR CALL 
aoa 043610 012037 043624 ES.SAV: MOV (RO)+,1$ GET THE ERROR CALL 
8094 043614 013746 001206 MOV SESCAPE,-(SP) SAVE THE ADDRESS IN ’SESCAPE’ 
B09S 043620 005037 001206 CLR SESCAPE ; CLEAR THE ESCAPE RETURN 
8036 set 00000 1S: “WORD O THE ERROR CALL IS MOVED HERE 
D362 12637 001206 MOV (SP)+,SESCAPE RESTORE THE ESCAPE ADDRESS 
8098 043632e 000200 RTS RO : RETURN 


-SBTTL ASCIZ MESSAGES 
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Pil 22-JUL-77 14:5 ACT? NessAceS SEQ 0185 


SERIAL: .ASCIZ /SERIAL NUMBER / 


ue 


123 04051 
114 052516 O4111 
1105 000040 


os 
KS cei01e 117 MSG7: .ASCIZ <CR><LF><LF>/ROTATIONAL SPEED TIMES/ 
oes 1 ll “ 16 


33 


: .ASCIZ <CR><LF><LF>/ONE CYLINDER SEEK TIMES/<CR><LF>/ # FORWARD/ 


he pe i 
-—o WI 
8 


a 


SSSCFHRIER-ES 


: .ASCIZ <CR><LF>/ # REVERSE/ 


MSG11A: .ASCIZ <CR><LF><LF>/ACCESS TIME MEASUREMENT/<CR><LF>/ % FORWARD/ 


bia oa 
z 


a 
un 


ass stenseisics: 
gis: fees 


me 
: 


: .ASCIZ <CR><LF>/ * REVERSE/ 


i O46412 geriot MSG12A: .ASCIZ <CR><LF><LF>/MAXIMUM SEEK TIMES/<CR><LF>/ * FORWARD/ 
020113 O44S2e4 
e515 006523 O20012 
1101 ater 
025040 OS1040 MSG12B: .ASCIZ <CR><LF>/ * REVERSE/ 


042523 


a 
Rin 
uw 
roy 
gR 


MSGMIN: .ASCIZ <CR><LF>/MIN=/ 
MSGMAX: .ASCIZ <CR><LF>/MAX=/ 


fe 
- 


SEIS 


047111 
036530 
01S O40412 0439526 MSGAVG: .ASCIZ <CR><LF>/AVG=/ 
020060 051525 OOO MSGOUS: .ASCIZ /0 US/ 
040 aia ale MBELOW: .ASCIZ / BELOW THE MINIMUM OF / 
Dies sie Ose515 
Ts Hail? 00040 
04 Ieaae MABOVE: .ASCIZ / ABOVE THE MAXIMUM OF / 
0 esi 440 
1 14 101 11 046525 
e OW46e2e 047440 020106 000 
3 O44627 O40 O4eS23 O4SSOS MSGNUM: .ASCIZ / SEEKS TIMED/ 
4 O44634 O20123 O445e4 042515 


SEQ 0186 
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DRIVE 


4:59 


MD-11-DZRNF-A 
OZRMFA.P11 


sTWO (2) SPACES 


-SBTTL ERROR HEADER (EM) MESSAGES 


“RH70/RMO3 FAILED TO RESPOND TO ADDRESSING” 


-ASCIZ /RH70 INTERRUPT OCCURRED (RMAS = 0)/ 
-ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 
-ASCIZ /MASSBUS PARITY ERROR(MCPE=1)/ 
-ASCIZ /MASSBUS PARITY ERROR(PAR=1)/ 

-ASCIZ /DRIVE SELECTED IS NOT ONLINE/ 


-ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 


-ASCIZ /IMPROPER HEADER DATA/ 
ASCIZ /DATA COMPARE FAILURE/ 
-ASCIZ /DISK ERROR IN TIMING TEST/ 


-ASCIZ 


MSGNON: .ASCIZ / NOT TIMED/ 


5 


EMS 
EM10: 


fot be 


EMl2 
EM13: 
113 EM17 


2 ens easana penn ENee gus 
: S Gade? saacsueae aun ee? £0 Bs 
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SEQ 0188 


STATUS/ERROR INDICATOR MESSAGES 


MACY11 30( 1046) 


MO-11-DZRMF-A RMO3 EXTENDED DRIVE TEST 
° 22-JUL-77 14:59 








“ERROR OCCURRED DURING 1/0 OPERATION” 
“ERROR OCCURRED DURING NON-I/0 OPERATION” 


-ASCIZ /DRIVE HAS NOT RESPONDED TO PORT REQUEST/ 


ASCIZ 
-ASCIZ 


MSGBO3: .ASCIZ /AUTOMATIC RECALIBRATE SEQUENCE OCCURRED/ 
: .ASCIZ /DRIVE HAS BECOME NON-EXISTENT.” 


MSGBO8: .ASCIZ /SOFTWARE TIMEOUT ON ANOTHER DRIVE/ 


MSGBO4: .ASCIZ /UNSAFE OCCURRED/ 


MSGBOe: 
MSGBO1 


ap5e ea aa be te retary Lt. 
Sida tyaesuaid eat See a itaeal ease 


seo is atas i 
g ——. Saates 


rie 


-SBTTL DATA HEADER (DT) MESSAGES 


RMDS RMERI RMMR2 RMER2/ 


RMAS 


-ASCIZ /ERR PC RMAS/ 
ASCIZ /ERR PC DRIVE 


DH1: 
DHe: 


Smee 
: Ae 
a ase 
BEES 
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) MESSAGES 


SE@ 0190 


) 
(DT 


DATA HEADER 
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DATA HE (DT) MESSAGES 


DHY4B: .ASCIZ /RMERL RMMR2 RMER2/ 


DHYSA: .ASCIZ /RMERL RMMR2 RMERC RMWC RMBA = RMDB/ 


- EVEN 
.SBTTL DATA TABLE (DT)- 
DTl: . WORD 


SERRPC , SREG3 
DTe: -WORD SERRPC,SREG1, SREG3, RMERRS, RMERRS+2, RMERRS+4, RMERRS+6 


DT3: -WORD STMPO,SERRPC,RD.AOR,RO.WRD 

DT4: -WORD STMPO,SERRPC,WRT.ADR,WRT.WO,RD.WRD 

DTS: -WORD STMPO,SERRPC, SREG1, SREGS, RMERRS, RMERRS+2, RMERRS+4 , RMERRS+6 
DTi0: .WORD RH. RRPC 

OTi1 - WORD She Ge SERREC 

DTl2: .WORD STMPO,SERRPC, SREGO,CHKDRV,CYL.DS, TRK.DS,SEC.DS 

DT12A: .WORD CYL.DS,TRK.DS,SEC.0S,CYL.RD, TRK.RD,SEC.RD 

DT13 -WORD STMPO,SERRPC, SREGO, CHKDRV,CYL.DS, TRK.DS,SEC.DS 

DT13A: .WORD SGDDAT,SBDDAT, SREG4, SGDADR, SBDADR 

DT17 -WORD STMPO,SERRPC, CHKDRV,RM.REG,RM.REG+12,RM.REG+14, RM.REG+40, RM.REG+42 
DT21: .WORD STMPO,SERRPC,SREGO,CHKDRV,CYL.DS,TRK.DS 

DT21A: .WORD SREG1,SBDDAT,SREGY,SREG! 

DT23: .WORD STMPO, SERRPC, CHKDRV, CYL.0S,RM. REG, RM.REG+10,RM.REG+12 
DT23A: .WORD RM.REG+14,RM.REG+40,RM.REG+42, RM.REG+34,RM.REG+36 

DT41: .WORD STMPO,SERRPC, SREGO,CHKDRV 


SEQ 0191 
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1176 
12S4 


001116 


001162 
004214 


bonats 


MACY11 30: 1046) 
DATA TABLE (DT) 


OT42: 


DT43: 


ort 


DT4YA: 
DT44B: 


DTS: 


DTYSA: 
DT4SB: 


B5 555 5 5 5 


22-JUL-77 16:19 PAGE 160 
STMPO, SERRPC , SREGO, CHKDRV, RM. REG, RM. REG+10, RM. REG+12 


STMPO, SERRPC , SREGO, CHKDRV, RM. REG, RM. REG+10,RM.REG+12 


RM. REG+14, RM. REG+40, RM. REG+42 
STHED SERAPC; SRECO.CHRORV CYL .DS, TRK.DS, SEC. DS 


RM. REG, RM. REG+10, RM. REG+12, RM. REG+36, RM. REG+34, RM. REG+06 
RM. REG+14, RM. REG+40, RM. REG+42 

STMPO, SERRPC, SREGO, CHKDRV, CYL.DS, TRK.DS,SEC.DS 

RM. REG, RM. REG+10, RM. REG+12, RM. REG+36, RM. REG+34, RM. REG+06 
RM. REG+14, RM. REG+40, RM. REG+42, RM. REG+2, RM. REG+4, RM. REG+22 


-SBTTL DATA FORMAT (DF) TABLE 


DF 1: 


DFe: 


OF 3: 


OFY: 


DF 10: 


DF 11: 


OF le: 


OF 13: 


;NUMBER OF DATA HEADERS 
;NUMBER OF WORDS IN DATA TABLE 
;ALL 3 NUMBERS ARE OCTAL 


YPED 
OLLOW THE 1ST DH 
OCTAL S-7 ARE DECIMAL 


SEQ 0192 


SEQ 0193 


L15 
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DZRMFA.P11 


;WORD 3 IS DECIMAL 
;WORD 3 IS DECIMAL 
;WORD 4 IS DECIMAL 


_ be So Seetee Sem feetss Sse Soe Seeses Soeeeeses 


S86 GG GSE AROSE: FES BREE GEe GRE NREIIE guSheEEER 
Gees 656 G86 Gitces han Games Ga ea Gaon Ronan 
PSE rerreeerrry ser at eMeerne en eerste ETS Teter TET eT yee T 
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— 
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wn 
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oe 
285 


2 
i 


hie TEST 


g R 

= ry 
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= 
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= 
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a con ae 
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Po he 
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DATA FORMAT (DF) TABLE SEQ 0194 


DF4S: - WORD 


“BYTE 
“WORD 
“BYTE 
“BYTE 
. EVEN 
BUFFER=. 
TITLE: .ASCII 
ASCII 
ASCIZ 
LOADRV: .ASCII 
ASCII 
ASCIZ 
NOLOAD: .ASCIZ 


“TE 


(CR) <LF> <LF> /MAINDEC~11-DZRMF-A/<CR> <LF> 


@RMO3 EXTENDED DRIVE TEST@<CR><LF> 


/JULY-1977/7<CR> <LF><LF> 


<CR><LF>/TO TEST DRIVE O REPLACE THE ’XXDP’ PACK ON DRIVE 0/<CR><LF> 


/WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40, AND RESTART/<CR><LF> 


/THE PROGRAM/<CR><LF> 


<CR><LF>/SYSTEM HAS 16K MEMORY, ’XXDP’ LOADER WILL BE OVERWRITTEN/<CR><L. 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST 
OZRMFA.P11 22-JUL-77 14:59 


DS cceanee: 





ra 


Re 
a: 


2 
aE 


eh he 
REXVSTSROSEESHRE Mse 


s 
pat 


- = = 
RARARRAAARAARRT ROGER 


poe be en fh hs bP Fe Be he ee 3 bo pees ee 
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DATA FORMAT (DF) TABLE 


EVEN 

-SBTTL ROUTINE TO SIZE MEMORY 

; Tg AReNRR ERNST ream eirencey ie pn ave 
is JSR PC, SSIZE 

i SSLSTAD vite CONTAIN THE LAST sae nee MEMORY LOCATION 

SSIZE: MOV SAVE RO ON THE STACK 


Rov eC (F), BE Phe TERROR VECTOR PS & PC 


MOV phe -SAVE THE STACK POINTER 
; SET THE ERRVE 1 vec tat re vmceit 
MOV 


(SP)+ SeERAVECH2" coh OLD Ee chee HE Poin IN SeERRVECH2 
a 
ss 


MOV 

1S: TST (RL) i TH Ss 
TST (R1)+ >:STEP TO NEXT ADDRESS 
BR 1$ $3 THER 

2s SUB #2,R1 *DROP BACK 
MOV RO’ SP tT RESTORE THE STACK 
MOV (SP)+, sERRVECHE : RESTORE ERROR VECTOR 
MOV (SP)+ ¢ 
MOV R1, SLSTAD ;;LAST ADDRESS 
MOV (SP)+,R1 : RESTORE RI 
HOY (SP)+, RO :?RESTORE RO 

SLSTAD: .WORD - O ;;CONTAINS THE LAST ADDRESS 


‘aBTTL GETADR - GET BUS ADDRESS Ne VECTOR ADDRESS 


OF Fae RHPOTRHG 3 ue 1 Bone TO READ THE BS ROPER VALLE. 
HTT MILL ALSO READ THE. AODRE Tue TOLFERD THe Par IF 
‘NOTE: THIS ROUTINE DESTROYS RO-R4Y 
> CALL 
[a oo. PC, @UGETADR 
: RETURN 
GETADR: Ist a ¥BUSADR s INPUT FROM TTY REQUESTED? ° 
CLR a Nis THE REQUEST FLAG 
1S: MOV RH. ADR, RO FIRST 90 
MOV SMRMCS1,R3 
MOV (RO), RY PRESENT. RMCS1 ADDRESS 


JSR RO, J&GETNUM | ie NEW RMCS1 


SE@ 0195 


B16 
22-JUL-77 16:19 


SEQ 01% 


OF WHERE TO PUT THEM 


ii ai i a = C 
ea age el. piles 


rrr oO+ 
pele eeze ay 4 


acw-- 


Ext pao VECTOR ADDRESS 


B 
Sx s 
ae BB 
ri i= 


PERIOD 
NEW RMCS1 


ee _— VECTOR 
og ERROR VECTOR 
rte OF NEW PARAMETERS 


PAGE 164 


<CR><LF>/RMCS1=/ 
<CR> <LF> /RHVEC=/ 


5 Pe 
if es 2% 


BUS ADDRESS AND VECTOR ADDRESS 


(1046) 
T 


Ben 
-ASCIZ 
ASCIZ 


051012 OS3110 MRHVEC: . 


si meine 


MACY11 30 
GET - 
- END 


% BRL $ 


So et 
a ee 


ESSSEE SoOcerbRRECRPERr EERE 


22-JUL-77 14:S9 
O46S22 051503 MRNCS1: 
000 


Pll 
We 
te 
os 
q 
| 
os 
:: 
Os 
OS 
0S 
0S 


| pa RMOS EXTENDED DRIVE TEST 


C16 
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DZRMFA.P11  22-JUL-77 14:59 SEQ 0197 


ACTORV 5 68108 7078% 7129% 7447% ##=74S6% 7694 
ACTSTR 0354. 68168 7696% 7710% 
rss) = 001000 : 
+ 4 3 
ATABIT 490008 1844 6158 6164 68828 7045S 7141 7247 7617 7636 7644 7645 7665 7751 
ig 0 
= 
ars = poooes cet 
Af3 = 3358 
ATY = 3368 
ATS = 3378 
AT! = 000100 3388 
is] = 000200 3398 
Al&6 = QOO400 2078 
Al7 = 001000 2088 
BAI = 000010 eess 
BITS 001424 5768 e20le 2061 2114 2172 2227 2322 2380 244S 2549 2721 2802 2921 
3139 3268 98 3572 3771 6225 6256 6273 6326 6500 
BtTOO = i ese 182 576 5392 1837 18S3 1914 4 
= 
Bt TBy = errr 1718 181 577 S33 S298 7121 7369 
BITOe = 000004 70 180 578 So 1823 5035 5298 
Bitte = 000010 1698 179 579 S95 as 7576 7869 
BITOY = 000020 1688 178 S80 53% 7611 
BITOS = 000040 1678 177 581 597 2607 2623 2639 e8s3 2873 2888 2893 2973 2997 
jour 3076 3094 3111 3116 3189 3207 3224 3229 5335 SH4S 6972 7389 
BITO& = 100 1668 176 S82 $98 5338 7054 7112 7186 87 7930 
BITO7 = era 1658 175 583 539 7054 7321 7468 7576 7531 7611 7640 7902 
BITOs8 = 000400 1648 174 S584 $326 70S4 
BITOS = 001000 1638 173 58S 3898 4520 S341 7744 
BIT1 = 000002 1818 
BIT1O = 002000 l6e8 S86 3882 4984 5298 6519 7371 
BIT11 = 004000 1618 587 4527 5329 7019 7148 7340 
BITle = 010000 1608 588 5298 $332 7014 70S4 7123 7156 7336 7355 7367 7380 
BIT13 = 02000 roots 589 3889 coe c33 7106 7549 7810 
= Ue . 
BIT14 = 040000 1588 590 2618 2868 3071 3184 3202 4502 S226 5298 
7118 7153 7676 7772 7819 3 7928 
BIT1S = 100000 1578 5931 S490 S491 7106 7118 7lel 7123 7153 7156 7340 7369 7371 
7576 7531 7 7611 7676 4 7779 
BIT2 = 000004 1808 7779 
BIT3 = 000010 1798 
BITY = 000020 178% 
BITS = OO0040 177% 
BIT& = 000100 1768 
BIT7 = 000200 1758 
BIT8 = 000400 1748 
BITS = 001000 1738 
BPTVEC= 000014 189% 
BUFFER= 050514 1239 1263 1287 1311 2584 3301 3316 3329 3387 3397 S411 3556 3689 
3716 3726 3735 3743 3752 S40Ss* 5410 S412 S414 S415 S416 S489 5526 
S669 S688 5689 $713 5802 S834 5877 5919 5936 5937 5954 86758 
001226 Si3e 1700% 1702% 1705% ##1707% #98768 8770% 
BYPASS 001252 Soee § 4 «6191e% ePO41e 2092% el4ex e200% 2255% 2350% e408 eA474e 2591% 2753%  3293% 


3379% 3957% 3684% 5280 5760 5906 5971 


D16 
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SEQ 0198 
at -8 ie 1918 1920 yt, cia 3785 3790 50788 5081 aa 2366 2368 2417 
sap Big at Beg usec BEisB7e?)Sidde Sfi2 
CALL.C 026334 2095 2756 51Se8 5155 
CHKDRV 001254 eens” 193i* io 1901 3816 S023 8S27 8S32 8537 8S40 8S44 8549 8551 
4 
CIl 036766 7176 72048 
CI3 037074 7178 72278 
CI4 rags 7167 72498 
kip oS 73258 7335 73318 
ef 037610 7108 7185 7216 7220 7232 7242 7246 7257 7264 7270 7274 7288 
7284 7298 7308 7319 7334 73368 867442 7472 7628 7914 
CI7B 037636 7339 73422 = 8=©—7630 
cis 037710 7337 7345 73548 7502 7764 
CKSCTR 031010 3315 $7108 
CKSWR = 104407 3872 3897 1 46298 
CK.CHR 034766 6092 6142 6369 6406 6446 65728 6609 6622 6633 6684 
ex BEE ale 65508 6580 
CK.DIG 6152 6390 66038 
CK.NUM 035226 6101 6422 6455 66678 
CK.OCT O34712 6205 6209 6229 6233 65328 6669 6679 
CLKSTA 001244 5i88 1881 2596 2626 2827 2H6 1 3164 4902# 4904*  4910% 
CLOSE 034632 6490 65038 
CLR = eae 2278 
CLRBUF 3312 
CLROUE 043346 2s' 6954 79988 
CLSWDS 6474 6478 64818 
lL rT Slee 1703% 1708% 1792 1833 
1 1877 81448 
CONT = 000100 3008 
COUNT 030120 2877 2977 3081 3099 3194 3el2 55058 
CR = 000015 978 Soss 3809 3840 4074 4084 6059 6139 8116 8122 8138 8145 8155 
8163 8168 8175 8178 8185 8188 8194 8198 8200 8202 8677 8681 8686 
8689 8698 8708 8711 880S 8807 
CRLF_ = 000200 988 4045S 4084 
CYL.0S 001270 S308 2610% S086# 5S117* Sié0* Se09* S2e39* Se6S* S419*% S457* 5S776% S890% 8527 
8530 8S32 8540 8S44 8558 8564 
CYL.RD 001262 S27 S414# 8530 
C.SWR 001220 5108 1836 1839 1854 1914 2257 2841 2897 3691 4917 4927 4937 4972 
S062 5140 5183 5281 5365 6061 6065 6066* 
DATCMP 031450 3622 58338 
DOCK = 100000 2908 
DOISP = 177570 1048 461 1736 
peceec pameet S6S48 
170 elS4e 2158 
DELTA pte SSis eS82% 2672%  2673% 2674 2676% 2685 
LT 1664 6728 4961 
1 050340 1400 85748 
10 050360 1464 85908 
DF 11 050364 1474 BSH 
DF le 050370 1487 85988 
DF 13 0S0400 1S00 1521 8605s 
DF 14 050410 1S08 1Se9 86le8 
DF 17 050414 1539 1549 86168 
OFe 0SO344 1410 440 85788 
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DrB2 
DFea 


res 


DFY: 
DF43 


or 


am 


7 ee 
~ S2SE22 
DERE 


asa 


20 
30 
0S0434 


att 


292999 
ayeanes 


— 

= 8 
— = 
28 


22-JUL- 


ReRnbeseSeusERo 


wane 


: 
: 


2 


i 
Ba 


Rcuensean 


ee 


: 


-_ 
<= 
S85 

es 


seg tah 


Ro 
Ox 


ae 


WwW 
— 
wW 
= 


nee 
a aE 


quay 
ra tae 


mies fy 


1662 


E16 
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SYMBOLS 


TeTa:S3 CROSS REFERENCE TABLE. ~~ 


1677 


® 
= 


ederrieues: 


8 


N“N 
f 
* 


Www 
w 
Ww 
_— 


1692 


84048 


2234 
3665* 


24Se% 
4S39# 


7574 
3609 


eSsSb* 


3619 


SEQ 0199 


2728% 


F16 
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Devint Gaers 
DRVMSK 


7669 
001256 1 


¥ 
x 
892% 
nae 
11 
844s 
847 


1 
? 
1 


001232 


: 


cece: Ee 


“ 
mM 
ty 
aa 


8 


CUES 


Bass eeees 
SEaasaneN 
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DZRMFA.P11 2e-JUL-77 14:59 CROSS REFERENCE TABLE -- USER 
Bria 050206 1648 sssis 
TY 85578 
DT44 be0sae esses 
TY4A 050250 85618 
T44B 85638 
16/9 1693 8sS64s8 
85678 
85698 
TS 04 ores 
Bua = 004000 ore 
= 
aes zi 
= 
E = 001000 3038 
EECC = 000020 2998 
EMPTYQ antl 7346 7331 7488 7613 7678 7780 80238 
EMNTVEC= 1928 1720% 1721% 
EM1 044662 1397 82228 
10 045110 1461 82498 
1 mreaos 1471 82568 
1 1 1484 82618 
1 O4S244 1497 1518 1559 82658 
EM17 04S271 1536 82698 
EM2 044725 1407 82288 
EMe0 04S323 1546 82748 
EMe3 045372 1579 82818 
ei rages 1S91 82858 
1417 82348 
EMY 045020 1427 82398 
EM41 04S461 1624 1634 1646 1661 1676 82918 
A ee 
BRENOX 027246 oR. Slé2l 5164 5213 5243 5269 $3208 5461 
= . 
hese, eet ee ee i we wn ee 
% x % 
ERR.CT 001364 SS78 1946 3277 3363 3507 3657 5278 5758 5789 5904 5963 
ESRC = OO4000 3058 
Bo saaY 3610 7505 7556 7560 7815 7975 80938 
ITO 2041 20468 
EXIT! 006736 20978 
EXIT1O0 012410 2591 2671 2702 27048 
IT11 012666 27658 
is 013462 2833 2838 2901 29058 
T13 014164 2954 # 
EXITI4 014740 3057 3 3l2e8 
exits 015514 3170 3172 35% 
IT16 016150 
exit 7 016626 3379 34318 
IT 007212 2142 21598 
EXIT 017420 3557 3567 3581 362648 
exited 020234 3684 37568 
ITee O20404 37938 
EXIT3 OO7444 2200 22138 
EXIT4 010070 2esS 23058 


SE@ 0201 


8735 
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EXITS 010326 2250 
EXTTe 010630 2408 
Fo © DoLei toes 
248S 
FER 2798 
FILBUF heaaet 3296 
FILRAN 031766 3693 
FMT22 = 010000 3998 
FS 001524 pice 
354 
FT 001516 6098 
2836 
Fl = 000002 Ses 
Fe = 000004 2538 
F3 = 000010 ess 
FY = 000020 ess 
FS = 000040 eSbe 
erree 051204 1781 
TNUM 032516 6062 
GETREG= 000141 rina 
Gero 032054 Pee 
GNS = SHKKEE 61 
4629 
0. = 900001 ~ 351" 
= 104406 
GTTST1 G330i8 6163 
errata cise. 
errata era 
GTTSTS 6265 
GTTST6 le 6289 
Gripai Gapese eiase 
Rr pre G3s00e eicee 
HCE = 2828 
HCI = 002000 3978 
HCRC = 000400 2838 
HT = 000011 Ss 
IAE = 002000 28Sa 
Ic 001514 608% 
IE = 000100 2058 
ILF = 000001 e758 
ILR = rere ‘ 2768 
NS” O71 sian 
NCTRK Boe 58 3623 
OTVEC= 000020 1908 
ia = 000100 228s 
SR 040320 2625 
ISRMOS O4404e 1822 
IT 001S2e 6118 
ITEM41 OO4S4E 16178 


1719% 
3005 


2157 
2581 
3788 


2140 
2141 


8781 


2205 


3119 


7566 
3839 
4633 


6241 
6204 


6146 


6499 


2280 


3232 


CROSS REFERENCE TABLE -- USER S 


2253 
2254 


7627 


331 
6058 


6244 


6263% 


6147 


2302 


S443 


2270 
e752 


2348 
2349 


7675 


3968 
6138 


6270 


6153 


2359 


6969 





2303 
2761 


6154 


2360 


74474 


2351 
2834 


2747 
2470 


4622 
6330 


2428 


2363 
2956 


2748 
2519 


e582 


2409 
3084 


2835 
2578 


80598 
4624 


6301 


2669 


6318 


2674 


SEQ 0202 
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DZRMFA.P11 22-JUL-77 14:59 -- USER SYMBOLS SEQ 0203 
KIPARO= #22222 U 
(f 040144 9734 74088 
Ted Sreis “ 7416% 7417 7438% : 
- oi Spa, dg | Shed | S5LA SEBS CSRRROST7§ | SERE7BL G70 EES 
thi . 6031 
LP = Beeays My 8 3809 3840 4078 4084 6059 6139 8116 8122 8138 8145S 8155 
8163 8168 8175 8178 6165 8188 8194 8198 8200 8202 8677 8681 8686 
8689 8638 8708 8711 8805S 8807 
LKS 001412 S698 4909 4941% 
LKV 001406 S688 2602 2603 4939% 4940% 
LO 050612 1760 86898 
LODFLT Q2S3Se 1840 1843 49S4e8 
L 025610 2017 2066 2119 2177 2232 2327 2385 2450 2SS4 2726 2807 2926 3031 
3144 3273 3359 3503 3663 3776 50128 
LOP.CK $038 1 5176 S223 S277 Se94s 
LU 14, 8 
14 s 3 4873 
LPTAVL 001230 5i48 3875 4870% 4874% 
-AVL OeS032 783 48708 
6138 2087 3529 
LSIT = esse 
= e668 
ota 6108 ae 2517 S622 S625 5627 
an 5570 82058 
: side 


Ra: 


' 
035512 68948 7797 784S 
000100 3198 
3158 
MNOLTA 69108 7436 
MOC = 1s 
MOH = 356% 
MOL =0Ql e688 
MPE = 000400 230% 
MRD = 002000 3238 
eave’ tel 73 8779 88078 
1 l 8772 880S# 
MS = 3188 
= 3148 
Ss 325% 
= 3208 


one 
ee 
Grininteritins 


1 

1 

1363 83368 

aes 
MSGB10 1360 § 
MSGB11 O45646 1359 83168 
MSGBle O4S624 1358 «83138 


SEQ 0204 


J16 
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MACY11 30( 1046) 


22-JUL-77 14:59 


MD-11-DZRMF-A RMO3 EXTENDED DRIVE TEST 


DZRMFA.P11 


6358 6398 


oa 
in 
A 
w 
w 
wo 
Ws] 
w 
wn 
ao 
oO 
o 
r 
wu 
e 
= 
ss 
2 8 B 
™ @ 2 
3 wu rv) 
~ 
ae 8 
in 
~ eB 5 
o —~ Ww FT} 
- - om & in 
5 a & gf £ 3 7 
o 2B ro] wu a 
Be BR BS WS St Sh 26 8S BWR Ree eee Se a SS eR ee ee ee et BBP ea aS 
SiSSSR AR SRESER-GTSTReE RAREST og KG BSE RS 
ro) DIODOODHDOOHOOO -Hnowwown mR AN tu aon Dw 


3288 
3278 
3098 
3968 
4338 
2618 
4158 


l 
658 
sere 
apis 
6060 
“Be 
661 
660 
663 
657 
665 
662 
63993 
655 
1804 
=e 
927 
931 
932 
936 
937 
916 
3228 


Die =F DOD NDF CONN CUED 
MO MOR ie3 SPU 
APUPUTM DHUUaY BF BOD 


1 


Wend ieeecresreera gtr ee ren 


“uu ew Seegnes 


TI ARRESEU SMSO tah ysgeasg ""s"Eas" “"xe ” ar 
SUNAESAGRRGGUMEEE THIET Bente seeaUOSED CE ae 
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Sbheuc™ Sores 


a 


ee 


ao 
— 


3333333 
wo iSigz 





zERe 


D0 les 
1530 


PAT 

PAT.PT 

PATO 104 

PATI 144 

PATIO 

PATI 4y 

PATI 

PATI 

paris 

pare 

PAT3 003244 

PATY 

Pa 

PS 

FA 

PATS 

PATS 4Yy 

PDA = O00400 

PGE = 

Se 

PHA = 

PIP = 

PIRQ = 177772 

PKB pOTice 
te 

PKC O01 

PKCS cated 

PKV 1374 

PLFS = 

POPQUE 3S4e 

PRM 001504 

PRMLMT 001606 

preews G01696 

PRMP 1$36 

PRMO 002330 

PRM1 002344 
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6481 


6284 6293 6295 


a 
63108 
6332 


6302 


6304 6326 


5393% 
3068* 
5391 


3070# 
5392 


4979% 4995 


3086* 
5397%# 


4997 


SEQ 0205 


3088* 


5657 





? 


11-DZRMF-A 
OZRMFA.P11 


pik Bee 


ba 


| mt 


Dos bs be 
NOU) 


sg 





y 
t,,! 
000100 


BA FRRABER 


2 
nu 


ppeD 
es Ee 


BEELEE 


TART Sio0 
Bis’ fils 
RANADR 2 
RANCK 0 
RANPAT Tioat 


g 38 
ae 


8 Bi 
22 
eb 


SERRE PERE BREN 


SERRE RS 


Fags 


Rennes 


SSR 


100 
5390% 


eet 


5398* 


8023% 
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8040 


2S95* 
6953% 


8060 


804% 
8078% 


6404 


7306 
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2612% 2617% 2664% 2882 2991% 
6982 6990% 7076 7077%  7130% 
8074 

8079 8081# 

6444 

7410 7424 7470 7500 7568 


310S* 
7140 


7578 


SEQ C206 


32 18% 


7189% 


7893 
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8888 
a 
oe 
oe 
: 


, ‘a fo ee ee 
= 
ais 2 sure 
= 0001 4308 1919 2037 SH23 S448 
000113 4328 
RESREG= 104413 2875 2890 2975 2999 3078 30% ###3113 3191 3209 3228 ##4YOll 46338 
he: S492 s«Sb 5700 S762 5823 S874 6165 #6317 46475 6479 6498 6521 
699 7124 7127 «17190 7395 7455 7709 7915 8014 
RERNeC- 18958 1906 3851 
= see 
RHVEC 1 5638 
RH. 001 366 Sé28- 8525 8771 8789 #8791 
RMADR 514 473 Py 6971 7207 7227 #«©+7249 #«#37408 7449 «+7728 «#7799 
oeeg 22 8792 
RMAS = OOODIE 69248 * 7498 7617% 7644% 7665% 7750 
peel Pn po0000 Batt o7i3e 2663% 7% * 3180% 3199% 69178 7013% 7019 7034 # #=#7147% # 7148 
Tee3 7287 3087 it: 7471 1 7553 7585 
RMCS2 = 000010 2496% 2607% 2608% 2623% 2624 2633% 2699 27008 2859% 2860%  2873% 288e% 
x 74% g * g wot teh Pd % 
itis 112% tte 117% 3189% Sicoe % % 4 29% 30% % 
bSel8 6972 70 7014 * 7146% 7208% 7229% 7250 7355 7367 7380 
73858 7567% 7651%  7664% 7806 7863 789% 7926% 
2c=5* 28378 SH70® S654 69208 7215 7241 7256 


721 
69228 867041 7411 7569 


67218 6955 7S36 7539 7549 7652% 7653% 7654% 7655* 98515 8522 
7S 7653 7867 


qa 282 





= Pe? i29. S170 «S172 «= «639238 = 7047 79 
2 Ega28 " 
aes ie6 oeaa" 69258 7425 7427 
tle bare 
2 69338 7655 ‘ 
aor = 69308 7038 7269 #7273 «#+$;7293 7297 
RNSN = gSoae 
RMVEC poise Beast Payee 289% 2961% 300S5* 3064* 3119 3177% 32328 S443 69008 6968 
RMWC = 2653% 69188 
RM.REG O04204 124 4«O«1270':—«d12HSté—i‘iSsSC‘iKQ® «=C19P9)Ss—s«*S$27~=Ss«dS129Ss«S170—'s—«S172~Ss«S226)=S «SSH ~— 8537 
@S44 8547 8551 8554 8557 8561 8563 8567 8569 
RMO3 5110 5153 5200 S232 S251 S257 S450 70768 


036236 5079 
T 001506 60Se 2020 2069 2le2 2180 2235 2330 2388 e453 2557 2729 e810 2929 
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RPTMR 1704 
RSTRT ee 
inte, ft 

awroe 1 
G= 10441 


De 


a 


ScO = 000100 
SCl = 000200 
SCll 041366 
scle 041476 
SC13 041546 
a5” BNDEEM 

040604 
SCY 040610 
scs 040622 
SCé 041022 
SC6A 041132 
SC7 041260 
Scs 041336 
SEARCH= 000131 
SEC.DS 001272 
SEC.RD 001266 
arr. = 000105 
SEKCNT ates 
SEKTMR iste 
SERIAL ete 

031360 


: 
; 
3 


este 
Seees 


a 


TACK = 


11 


43 


eee 
SSBB 
oe 


guyz 


nia 
= 
oR 


a ea 


ee 


Rope Sg 


Sra 


147 
S48 
1884 
ei 


B01 
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3278) 3362—CiS0G—(ieilKHESCs=“‘d7NCOCOCCB383 


8 
ee 


: 


1 ee aR 


1898 

606S* 

7475 ss 7641 

ce «SiG 
5710 

7697 7892 

7492 «= ss 74988 

3707 

7562 439 7610 

7602 76128 

7585 $7595 

Si62* S211 

2611 2964 

6956 7171 

2677 

2037 ~=—s 2471 

7188 73% 

7636 7645* 

3168 \ S441 

\ 

2043 2094 

2594 

3381 

3738 745 
3786 

2275 2s 227 b¥ 


— 


3091 
$833 


7631 


3108 
6134 


7650 


3789 


639% 6401 
3186 3204 
6310 6430 
7687 

S4S9#  S892% 
3198 3784 
2207 

3060 3173 
3558 3598 
S283 53648 
2297 = e298 


6427% 


3221 
6503 


8527 


6488 


3920 
6951 


2354 
3303 


3617 


SEQ 0208 
64928 


46328 
7079 
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COl 
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ei Seay asso 


OZRMFA 


MO-11 


G2 2506 : 
ae tee g 
ae Soe j 
Sk gone 


7778 77828 

3075 3093 

7600 «= 7643 

2073 #82126 

3280 3366 

3894 3898 

5787 = $791 

2334 2392 2457 


7771 
3750 
2996 
7582 
e0e4 
3151 
3889 
5785 
2257 
3670 


2 2 ERR RES 2 OR ORB 
3 2 § RRS ERSS B ORES RY 
s a 


4272 
7738 = 77508 
1 

3175 

3118 

3732 

e 


3062 
3004 
3714% 
2858 
7372 
7s 
2733 
3620 
i 


aacamaees =| 83 


: 
SSaRe f RRR acecane soem ayes 


RaBWsas BRUNE RCPS SBR MF aR heh aGas Ses Sha NRaaaRsaRAmaaRe ess 


te 





Ba a Cee 
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SH 4S8 
at” Bae 1 
AP == Q4OO00 3578 
ITVE= 14 ree 
; sag 
TESTIO 011514 2ss5 
reste 12610 2727 
1 13114 

1 1 a 

tg 14. st 

1$1 1738 

1 1 3274 

1 aoa s60 
ike Bai 

TESTel Ol 3664 
3777 

i e 
TESTS tte 2328 
fe ihe | 
TICKMS paiole coos 
TICKUS 001250 Seles 
TIMER 035460 sobls 
* 

TIM.ON 001314 5398 
it. 001332 aH 
HA eae 
C = 000060 1948 
TPB 001416 5718 
TPS 001414 S708 
TRAPVES 138 

= 

The’ = 40000 ie 
TRK.DOS 001274 ese 
TRK.ROD 8 
mee 
TRTVEC= 000014 1888 
TSTNMS 001234 Silbs8 
fie 

TSTO 20108 
TST1 2014 
TST10 1} 2447 
TST10A ae 2627 
TSTIO8 O1e344 2604 
TST11 Ole%i2 2es51 
TSTle 012670 2723 
TST13 O13464 2804 


EXTENDED DRIVE TEST 


S234 
8lees 


rere 


ge 


ae 


3 


: 


agSER 
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S426 


2693 


37108 


2927 
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7327% 


5529% 
5554 


7373% 


4980% 
S240 


7378% 
217e 
3498 
6203% 


7464% 


S266% 


7387% 


2227 
3658 
622eS* 
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7564% 


7608* 


7647 


5777 
7739 


2445 
4960 
6268 


7662 


7683# 


SEQ 0210 
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OZRMFA.P11 


7632 7634% 7748% 


ee: | F 
amass f 
auguetcroes © a 2 § 
see OR é 
Sad a an : 
osc eS an : 
5 ReReRSs BRO i 
Be 4 pagum fg $e 
ah S RUS RERIoag 8 SESRSaeEe : 


saat ecMae aaumearrnsegee Reepacee: 88 
SEAS EE ESR Ate) ars Br Vien Rucci bl Oat a abe 


3306 3327 


3559% 3610 


zsestee neers SEL GSeestereerece hate ceicn 


Gaprepnapepn eet a 


MD-11-DZRMF-A RNO3 
OZRMFA.P11 


WRITE = 
= 
= 


say 


ARSEE 3S 
2 


Eics 


ae 


i 


1 


3 
A 


Silivace 


} 


RTT! 


sila 
= 


SFILLC 


EXTENDED DRIVE TEST 
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000 1 4398 
oo0ie1 HOt 
004000 2678 





a 
ee 
ea 


Sessa 


-_ 
— 
— 
wi 


3304 


seggrhes aie | 
Ss 2 = 


BSBA AaASEaS 


Bae aeetamieess 


ae 
ie 


| ae 
2 


3320 


Se 
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3383 3418 3539 3690 3715 5230 
7222 7230 7240 7244 7255 7262 
7584 7621 78458 
78818 
8520 
8535 2 
4281 QY7B 
40818 
1726 1727 

4968 4978 4984 

4968 4978 4988 
1945S 2028 2034 2077 2083 2130 
2396 2402 2461 2467 2565 2571 
3048 3155 3161 3284 3290 3370 
3939 3358 3972 3982 3939 4006 
$301 8803 
4516 4518 4S24% 4543 5278 5758 
2070% AEH sighs 2236* 331%  2389% 

# *% % 3667% 4518 
soe 6514 8515 8518 8520 8S22 
49 655 6SS4 8564 

3908 
3059% 3172% 3901 33903 3908 4537% 
Se0e* Se3l* S238% S2e64* S297%  S4e0# 
$947*% 7505 7556 7560 7815 7875 


7272 


2136 


SEQ O2le2 
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DZRMFA.P11 22-JUL-77 14:59 SEQ 0213 
mf 4084 
4718 Se8S*# S950% 8535 
4738 S887% S9Sex 98535 
38428 
0 — 4627 
NUM 17bae 2481 2683 368S% 4757 476S 4770% 4775# 5934 S940x 5S943% 5987 6003 
CNT ll 4“e 1 ugae* 4S4e 
Were Batt dees . 3 5 
SLF 001216 S06# 3908 4O84 4468 
SLONUM 1 1725 686% 4756 4763 4769% 47768 5368 S939% Sex 5986 6001 6002 
SLPADR 001106 4658 en ae else glace 2eSex 4 2347% 2405% e475% 2S74% 2746 
167% %  3683% * 3781% 4eex 453S% 4542 
SLPERR 001110 4668 Lae 2018% 7% ele0® 214%" 2152% 2178%  e20e# 2233%  226ce% 
2328% e386# ec4lex etols C491% it~ es .& 2593% 2631% 2727% ate athe 
nn os ee ae 
3300 4S22 4S36# 5296 S428 
SLSTAD 051202 1708 (og 87548 
ert, = SEREKE LU 174 1 3854 4037 4S3S 
SMSUR 3571 we uuBis 
SMXCNT ated 45428 
r= Gbbbat sea 2003 Sn nn ns an a a eT nC Te 
Sods Size Sete S362 et ar 5ooce he 36298 3631 37608 3762 
SOCNT O22112 4117% 4146% 41598 
sores 022114 4112%  4116% uest wsoe 4135* 41618 
$PASS attics 4618 3829% 3830% 
ae 1214 SO4e 2008 4084 4390 4461 4478 
10 2480 47528 5367 598S 
$ROCHR 44038 4630 
SEEEEE U 4632 
N 023272 44°68 4631 
Ts #HeeEE U 
= 44198 
sre 118 Waoe ole 8532 8S40 8549 6551 gSS4 8558 8564 
Boties s Sees" Beis | Bese Beue 
tte 4948 3924% 8526 
D011 4958 3925% 98514 6515 
G4 001172 4968  3926% 8535 BSye 
001174 S22 


erie 
is 


4632 
46468 5561 S568 486 5572)«=s«S577)2=ss«sSS84% = 48=s«SS88 )=6s«S00—sC«SBO0S)=6sEH «CGH 
1717 


SSETUP= 000147 17008 1718 1720 1722 1724 1726 1727 1729 1770 3827 38720 3897 
3905 4273 4278 Y4e79 4309 448S 4501 
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DZRMFA.P11  22-JUL-77 14:59 SEQ 0214 
SSUPRS 024450 47278 S562 S569 5573. «©5578 SS8S S589 S601 S606 6365 6440 
SSVLAD 023774 4511 45348 
$SVPC = 000200 698 74 
SSWR = 167000 voit il 740 41 42 43 44 4S 438 = S01 S02 503 1726 
oat | 
ee SH s0G§ a Sen | 381 «BEB «SEB Seah 
iN aes G3 BBS HREOC RSS GCC] sR 
4497 
STIMES 001204 # W7ebe g020s 269% 21228 21808 2235% 2330 2388% 2453 2557" 2729" 2810 
197%  3276% % x * 3779 3828 4525" 4530 4S3g% 4542 
STKB 001146 teas 4234 20 4asY ees 4290 4318 4345 
TKINT Oee35e 1 usage 4531 
HERS 42398 4304 4415 
STKQIN 42368 42S50x 4251 4302% 4303% 4306# 
: 4 x iy Rie 4415 4417% 
STKS 001144 ieee Hee u25Se# 4286s 4288 4eo4e 4316 4332% 4342 4354* 4374" 
Shea’ 8511 case 19% 8518 8S20 S22 9527 8532 8537 8S4YO 8S4Y 8549 8551 SS 
8S64 
STMP1 1200 4998 
THP2 001202 S008 
TN is 11 2001 2010 2012 e021 20228 2048 g 1 2070 20718 2099 
2112 2114 2123 21248 e161 2170, ei72 2181 21828 2215 3205 2236 
2788 ©2800 Seo 1 i, 2908 19 5431 2930 sasie Soil ones 
3035 30368 3124 Skt ? 3148 1498 3253 3266 3268 3277 32788 
354 3363 aap4a 34 3196 3498 3507 35088 3629 3656 3658 3667 
# 60 7818 6216 6240 6315 
STNPWR 024364 46 4675 46958 
STPB O01 152 4BSe 1752% 3878% 3906s 4073% 4084 
STPELG 001157 4g9e 4031 4084 
TPS. 001150 ug4e 1751% 3877% 3905* 4071 4084 
STRAP 024134 1722 45968 
TRAP2 024156 # 4620 
TRP = 000014 Holae 46228 46238 46248 4625" 4626" 4627 46288 4629 46308 46318 46328 46338 
STSTNM Stioe aoe 7% 1 1 1 1 
x 
ofget S0le* 8019  805B, s0ey* smh etre, Siuee Sieh UGB, §«SacS* Sif2 SAR, 
2556 2563 * 2728 2735 e805" 2809 281 [924% 2928 2935  3029% 3033 
3040 31428 3148 3153 3e71% 3275 3282 3357" 3361 3368 380i" 3505 3812 
3661% 3665 3672 3774* #3778 #3627" 3681 #3908 #3919 4492 «#4534% 4539 4543 
S0ig 5220 
TTYIN 023526 442980 PS] SHSs7s«HN778 
T oe21i6 41758 
STypee ated 4031 uEia 4621 
TYPEC 021620 4059 «4066 «= «40718 «= 4072—Sss«4N37& 
STyPOc 51666 411Se 4622 — 
STYPON 021730 4114 941178 = 4624 
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OZRMFA.P11 22-JUL-77 14:59 SEQ 0215 
sere pe i620 41108 623 
450S8 
SSGET4= 000000 38448 
SOF I 022113 4i11# 4115® 4125 41608 
SYHOCAT= xeeeee U 
: = 051404 a ® 69 1715 1730S 2144 


a a a 
Gi i es Ey Ge, Gt Me, et ee. 


a285 ; 
* 79878 79888 79898 79908 7991 
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DZRMFA.P11 e2-JUL-77 14:59 SEQ 0216 
CKCHR 1698 6092 6142 6369 6406 SYHG 6609 6622 6633 bEaY 
CKDIG 16968 6150 6388 
CKNUM ge 1 64el 6454 
7 3784 3789 
wet is ie ! aa Se a a a ea ae 
DODTA ® See S345 §at3 5354 5357 5463 Sai $3 3603 3609 3619 3697 3722 
m ites 2038 S00) Ac ameees 
igs 1 1 
brie 3930S — ‘and 
7 114 1 10 
om oi 1 6 8 Ge AR a i mm im fm au te Ee mR 
Sie ac28 aah S465 S456 S467 S784 589s Bedi S959 5960 7557 3e7? 
ERRTYP ieoee 3873 
FR NOX 16968 2088 Sil” 160 5209 S239 5e65 457 
8 3 3172 S116 5159 5207 5238 Se64 S420 S4S6 5778 S782 
5393 5947 
pala sy oe 1770 
LOOP 16968 144 2202 2206 2353 2412 2490 2434 2532 2630 3206 3307 
3310 16 gibe 3383 3339 3416 s4e2 3597 3606 3616 3695 3720 3744 
MORETA 4S38 
MORE .S ie 18 a eile ay! cecs 2320 2378 2443 2547 2719 2800 23919 3024 3137 
8 e003 20s0 20998 1618 2163 22158 2217 23078 #2309 23678 2369 24328 
- a sect soe 27068 $2708 oi0l giel # e912 30118 3013 3le48 d3leb 32538 3255 
MULT GH 34348 863436 362e9% 3631 37608 #3762 
NEWTST 978 2001 os 20393 siel 22iS 230? 2367 2432 2S23 2706 2788 2308 3011 3124 
POP 1978 4216 4s82 $953 “SY 86-99) 
PUSH 1978 «41 W562 N752—iéwMEC(“(ié‘izSY «SDC 
pd al as one 2839 2°02 3006 3120 
SAV. RH 16968 e856 2870 288s 2970 2394 3073 3091 3108 3i86 3204 3221 
SCOPE 8 20% 2097 els3 2213 2305 2365 2430 2526 2704 2765 2305 3008 3l22 3235 
am: th @ “= *= # 
Ene Sie Seen |. AE A eS OS 
.1™N 1 2011 2060 2113 2171 e226 2321 2379 HY 2548 2720 2801 2920 3025 3138 
3353 3497 3657 3770 
SKIP 1978 
lee 
STARS 7 } 7 yey Ss 1598 2001 2009 2048 2058 2039 el 
He ae em eee eee ee 
3768 3739 38S 39093 4016 4165 4233 4309 4324 4395 4419 YOURS 4S46 
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OZRMFA.P11 22-JUL-77 14:59 SEQ 0217 


4697 4656 4719 4743 4780 6703 6713 8727 8756 
ete li 
T k 124 82 2237 2332 2390 e455 2559 2731 2812 2931 3036 49 
de ee a . 
TPBe) 16968 $560 S567 S571 S576 «S583. S587 S599 SHOH 6363 BH38 
ee ie 
TYPNUM 1978 
TYPocS 1978 1798 1871 1922 2029 2078 #2131 2189 #2244 2339 2397 2462 2566 2738 # 2819 
2043 3371 3515 36 3816 6332 
TYPOCT 1578 4 6087 6401 6442 
TYPTXT 1978 3806 3812 3837 3949 6056 6136 6168 6328 6433 
4538 492 493 494 495 496 497 
438 496 499 
1978 2001 2048 2099 2161 2215 2307 2367 2432 2523 2706 2788 ##+%2908 3011 3124 
3338 3434 3629 3760 
sscet, blge eee Hees Heed Hees Hb27 M29 HEBD HOS1 HO32 ©4639 
m3 it 87 
‘ 1a 
eit ap 
* SWRHI is 36 
; SWRLO 468 47 4g 4g 1) Sl S2 53 
Bt oi 8 
i 18 
: le 4654 
“SEOP is 3999 
* SERRO 18 3857 
“ SRAND ie 4741 
: SRODE 1s 
; SRDOC rv) 
‘ is 4231 
‘ 18 4s4y 
: i oe 
‘ ls 4590 
ie us 
“STYPO is 408s 
ABS. OS1404 000 


ERRORS DETECTED: 0 


RMO3: DZRMFA, DZRMFA/NL : MD/SOL/CRF =RMO3: RMDRV4.P11,DZ2RMFA.P11 
RUN TIE 30 one SECONDS 
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OZRMFA.P11 22-JUL-77 14:59 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0218 
RUN-TI Rare: at Ap ed E 8 
CORE 4SK (89 PAGES) 


